package MsgPack::Decoder::Generator::Float; our $AUTHORITY = 'cpan:YANICK'; $MsgPack::Decoder::Generator::Float::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; my $format = $self->size == 4 ? 'f' : 'd'; return unpack $format, $self->buffer; }; 1; __END__ =pod =encoding UTF-8 =head1 NAME MsgPack::Decoder::Generator::Float =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