package MsgPack::Decoder::Generator::UInt; our $AUTHORITY = 'cpan:YANICK'; $MsgPack::Decoder::Generator::UInt::VERSION = '2.0.3'; use Moose; use MooseX::MungeHas 'is_ro'; extends 'MsgPack::Decoder::Generator'; has size => ( required => 1 ); has '+bytes' => sub { $_[0]->size }; sub gen_value { my $self = shift; $self->buffer_as_int; }; 1; __END__ =pod =encoding UTF-8 =head1 NAME MsgPack::Decoder::Generator::UInt =head1 VERSION version 2.0.3 =head1 AUTHOR Yanick Champoux =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