Data::AMF::Remoting3pm

    use Data::AMF::Remoting
    my $remoting = Data::AMF::Remoting->new(
        source => $data,
        headers_handler => sub
        {
            my @headers = @_;
            # Do authenticate or something.
            return @headers;
        },
        message_handler => sub
        {
            my $message = shift;
            # Call action using target_uri and value.
            my ($controller_name, $action) = split '\.', $message->target_uri;
            $controller_name->require;
            my $controller = $controller_name->new;
            return $controller->$action($message->value);
        }
    );
    $remoting->run;
    my $data = $remoting->data;