File Coverage

blib/lib/MsgPack/Raw/Bool.pm
Criterion Covered Total %
statement 22 22 100.0
branch 2 2 100.0
condition n/a
subroutine 9 9 100.0
pod 2 2 100.0
total 35 35 100.0


line stmt bran cond sub pod time code
1             package MsgPack::Raw::Bool;
2             $MsgPack::Raw::Bool::VERSION = '0.04';
3 18     18   99 use strict;
  18         44  
  18         406  
4 18     18   70 use warnings;
  18         24  
  18         375  
5 18     18   70 use MsgPack::Raw;
  18         27  
  18         1644  
6             use overload
7 2     2   75 'bool' => sub { ${$_[0]} },
  2         6  
8 4     4   770 '0+' => sub { ${$_[0]} },
  4         17  
9 12 100   12   1684 '""' => sub { ${$_[0]} ? 'true' : 'false' },
  12         152  
10 18     18   17384 fallback => 1;
  18         14408  
  18         147  
11              
12             =head1 NAME
13              
14             MsgPack::Raw::Bool - msgpack boolean class
15              
16             =head1 VERSION
17              
18             version 0.04
19              
20             =head1 DESCRIPTION
21              
22             MessagePack boolean class
23              
24             =head1 SYNOPSIS
25              
26             use MsgPack::Raw;
27              
28             =head1 METHODS
29              
30             =head2 true ( )
31              
32             =cut
33              
34             sub true
35             {
36 8     8 1 2242 my $value = 1;
37 8         60 return bless \$value, 'MsgPack::Raw::Bool';
38             }
39              
40             =head2 false ( )
41              
42             =cut
43              
44             sub false
45             {
46 8     8 1 1567 my $value = 0;
47 8         41 return bless \$value, 'MsgPack::Raw::Bool';
48             }
49              
50             =head1 AUTHOR
51              
52             Jacques Germishuys
53              
54             =head1 LICENSE AND COPYRIGHT
55              
56             Copyright 2019 Jacques Germishuys.
57              
58             This program is free software; you can redistribute it and/or modify it
59             under the terms of either: the GNU General Public License as published
60             by the Free Software Foundation; or the Artistic License.
61              
62             See http://dev.perl.org/licenses/ for more information.
63              
64             =cut
65              
66             1; # End of MsgPack::Raw::Bool