File Coverage

blib/lib/Parse/JCONF/Boolean.pm
Criterion Covered Total %
statement 17 18 94.4
branch n/a
condition n/a
subroutine 6 7 85.7
pod n/a
total 23 25 92.0


line stmt bran cond sub pod time code
1             package Parse::JCONF::Boolean;
2              
3 10     10   57 use strict;
  10         17  
  10         365  
4 10     10   54 use Scalar::Util 'refaddr';
  10         22  
  10         1838  
5             use overload
6 24     24   79614 '""' => sub { ${$_[0]} },
  24         1157  
7 0     0   0 '==' => sub { refaddr $_[0] == refaddr $_[1] },
8 10     10   14617 fallback => 1;
  10         9649  
  10         99  
9              
10             use constant {
11 10         1284 TRUE => bless(\(my $true = 1), __PACKAGE__),
12             FALSE => bless(\(my $false = ''), __PACKAGE__)
13 10     10   984 };
  10         16  
14              
15             our $VERSION = '0.03';
16              
17 10     10   7592 use parent 'Exporter';
  10         2972  
  10         79  
18             our @EXPORT_OK = qw(TRUE FALSE);
19              
20             1;
21              
22             __END__