File Coverage

blib/lib/Data/AMF.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	28	28	100.0

package Data::AMF;
use 5.008001;
use Any::Moose;

our $VERSION = '0.09';

use Data::AMF::Parser;
use Data::AMF::Formatter;

has version => (
    is      => 'rw',
    isa     => 'Int',
    default => sub { 0 },
);

has parser => (
    is      => 'rw',
    lazy    => 1,
    default => sub {
        my $self = shift;
        Data::AMF::Parser->new( version => $self->version );
    },
);

has formatter => (
    is      => 'rw',
    lazy    => 1,
    default => sub {
        my $self = shift;
        Data::AMF::Formatter->new( version => $self->version );
    },
);

no Any::Moose;

sub serialize {
    my $self = shift;
    $self->formatter->format(@_);
}

sub deserialize {
    my $self = shift;
    $self->parser->parse(@_);
}

__PACKAGE__->meta->make_immutable;

__END__