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.03';
3 17     17   115 use strict;
  17         35  
  17         494  
4 17     17   83 use warnings;
  17         31  
  17         382  
5 17     17   79 use MsgPack::Raw;
  17         41  
  17         1866  
6             use overload
7 2     2   89 'bool' => sub { ${$_[0]} },
  2         8  
8 4     4   881 '0+' => sub { ${$_[0]} },
  4         20  
9 12 100   12   2067 '""' => sub { ${$_[0]} ? 'true' : 'false' },
  12         187  
10 17     17   20831 fallback => 1;
  17         16739  
  17         174  
11              
12             =head1 NAME
13              
14             MsgPack::Raw::Bool - msgpack boolean class
15              
16             =head1 VERSION
17              
18             version 0.03
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 2260 my $value = 1;
37 8         80 return bless \$value, 'MsgPack::Raw::Bool';
38             }
39              
40             =head2 false ( )
41              
42             =cut
43              
44             sub false
45             {
46 8     8 1 2037 my $value = 0;
47 8         53 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