File Coverage

blib/lib/MsgPack/Decoder/Generator/Boolean.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 13 14 92.8


line stmt bran cond sub pod time code
1             package MsgPack::Decoder::Generator::Boolean;
2             our $AUTHORITY = 'cpan:YANICK';
3             $MsgPack::Decoder::Generator::Boolean::VERSION = '2.0.2';
4 1     1   535 use Moose;
  1         3  
  1         7  
5 1     1   6524 use MooseX::MungeHas 'is_ro';
  1         2  
  1         6  
6              
7             extends 'MsgPack::Decoder::Generator';
8              
9 6     6   242 has '+bytes' => sub { 1 };
10              
11             sub gen_value {
12 6     6 0 12 my $self = shift;
13 6         19 MsgPack::Type::Boolean->new( $self->buffer_as_int - 0xc2);
14             }
15              
16             1;
17              
18             __END__
19              
20             =pod
21              
22             =encoding UTF-8
23              
24             =head1 NAME
25              
26             MsgPack::Decoder::Generator::Boolean
27              
28             =head1 VERSION
29              
30             version 2.0.2
31              
32             =head1 AUTHOR
33              
34             Yanick Champoux <yanick@cpan.org>
35              
36             =head1 COPYRIGHT AND LICENSE
37              
38             This software is copyright (c) 2019, 2017, 2016, 2015 by Yanick Champoux.
39              
40             This is free software; you can redistribute it and/or modify it under
41             the same terms as the Perl 5 programming language system itself.
42              
43             =cut