File Coverage

blib/lib/MsgPack/Decoder/Generator/Size.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch	2	2	100.0
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	14	14	100.0

package MsgPack::Decoder::Generator::Size;
our $AUTHORITY = 'cpan:YANICK';
$MsgPack::Decoder::Generator::Size::VERSION = '2.0.2';
use Moose;
use MooseX::MungeHas 'is_ro';

extends 'MsgPack::Decoder::Generator';

has next_item => (
    is => 'ro',
    required => 1,
);

has '+next' => sub {
    my $self = shift;
    my $next = $self->next_item;
    return [[ (ref $next ? @$next : $next), size => $self->buffer_as_int ]];
};

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

MsgPack::Decoder::Generator::Size

=head1 VERSION

version 2.0.2

=head1 AUTHOR

Yanick Champoux <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2019, 2017, 2016, 2015 by Yanick Champoux.

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

=cut