File Coverage

blib/lib/MsgPack/Type/Boolean.pm
Criterion Covered Total %
statement 16 16 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 24 25 96.0


line stmt bran cond sub pod time code
1             package MsgPack::Type::Boolean;
2             our $AUTHORITY = 'cpan:YANICK';
3             $MsgPack::Type::Boolean::VERSION = '2.0.2';
4 4     4   27 use strict;
  4         9  
  4         117  
5 4     4   73 use warnings;
  4         6  
  4         116  
6              
7 4     4   518 use Moose;
  4         455650  
  4         31  
8              
9             use overload 'bool' => sub {
10 10     10   2215 $_[0]->value;
11             },
12 4     4   29070 fallback => 1;
  4         10  
  4         40  
13              
14             has "value" => (
15             isa => 'Bool',
16             is => 'ro',
17             required => 1,
18             );
19              
20             sub BUILDARGS {
21 12     12 1 5336 my( $self, @args ) = @_;
22 12 50       53 unshift @args, 'value' if @args == 1;
23              
24 12         44 return { @args };
25             }
26              
27             1;
28              
29             __END__
30              
31             =pod
32              
33             =encoding UTF-8
34              
35             =head1 NAME
36              
37             MsgPack::Type::Boolean
38              
39             =head1 VERSION
40              
41             version 2.0.2
42              
43             =head1 AUTHOR
44              
45             Yanick Champoux <yanick@cpan.org>
46              
47             =head1 COPYRIGHT AND LICENSE
48              
49             This software is copyright (c) 2019, 2017, 2016, 2015 by Yanick Champoux.
50              
51             This is free software; you can redistribute it and/or modify it under
52             the same terms as the Perl 5 programming language system itself.
53              
54             =cut