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.05';
3 18     18   121 use strict;
  18         36  
  18         494  
4 18     18   86 use warnings;
  18         35  
  18         413  
5 18     18   90 use MsgPack::Raw;
  18         30  
  18         1965  
6             use overload
7 2     2   91 'bool' => sub { ${$_[0]} },
  2         8  
8 4     4   1101 '0+' => sub { ${$_[0]} },
  4         22  
9 12 100   12   2058 '""' => sub { ${$_[0]} ? 'true' : 'false' },
  12         190  
10 18     18   21739 fallback => 1;
  18         17999  
  18         184  
11              
12             =head1 NAME
13              
14             MsgPack::Raw::Bool - msgpack boolean class
15              
16             =head1 VERSION
17              
18             version 0.05
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 2353 my $value = 1;
37 8         76 return bless \$value, 'MsgPack::Raw::Bool';
38             }
39              
40             =head2 false ( )
41              
42             =cut
43              
44             sub false
45             {
46 8     8 1 1844 my $value = 0;
47 8         51 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