Data::AMF::Message - AMF Message class

Data-AMF documentation Contained in the Data-AMF distribution.

Index

Code Index:

NAME

Top

Data::AMF::Message - AMF Message class

SYNOPSIS

Top

    use Data::AMF::Packet;

    # get message
    my $packet   = Data::AMF::Packet->deserialize($amf_packet);
    my $messages = $packet->messages;

    # do something about it
    my $first_request = $messages->[0];

    # and return response
    my $response = $first_request->result($perl_object_you_want_to_return);

DESCRIPTION

Top

Data::AMF::Message is an object class for AMF Packet Message.

SEE ALSO

Top

Data::AMF::Packet, Catalyst::Controller::FlashRemoting

METHODS

Top

new

Create new Data::AMF::Message object.

result($result)

Return normal response AMF Message object against current request of AMF Message.

error($error)

Return error response AMF Message object against current request of AMF Message.

AUTHOR

Top

Daisuke Murase <typester@cpan.org>

COPYRIGHT

Top

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

Data-AMF documentation Contained in the Data-AMF distribution. 
package Data::AMF::Message;
use Any::Moose;
use Scalar::Util qw/blessed/;

has target_uri => (
    is       => 'rw',
    isa      => 'Str',
    required => 1,
);

has response_uri => (
    is       => 'rw',
    isa      => 'Str',
    required => 1,
);

has value => (
    is => 'rw',
);

has source => (
    is => 'rw',
);

has version => (
    is  => 'rw',
    isa => 'Int',
);

no Any::Moose;

sub result {
    my ($self, $obj) = @_;

    my $class = blessed $self;

    $class->new(
        target_uri   => $self->response_uri . '/onResult',
        response_uri => '',
        value        => $obj,
        version      => $self->version,
    );
}

sub error {
    my ($self, $obj) = @_;

    my $class = blessed $self;

    $class->new(
        target_uri   => $self->response_uri . '/onStatus',
        response_uri => '',
        value        => $obj,
        version      => $self->version,
    );
}

__PACKAGE__->meta->make_immutable;

__END__