File Coverage

blib/lib/Class/Null.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod n/a
total 26 26 100.0


line stmt bran cond sub pod time code
1 2     2   107157 use 5.008;
  2         8  
  2         98  
2 2     2   13 use strict;
  2         5  
  2         79  
3 2     2   13 use warnings;
  2         4  
  2         120  
4              
5             package Class::Null;
6             BEGIN {
7 2     2   180 $Class::Null::VERSION = '2.110730';
8             }
9             # ABSTRACT: Implements the Null Class design pattern
10             use overload
11 4     4   18 'bool' => sub { 0 },
12 122     122   6413 '""' => sub { '' },
13 6     6   532 '0+' => sub { 0 },
14 2     2   4282 fallback => 1;
  2         2505  
  2         26  
15             our $null = bless {}, __PACKAGE__;
16 167     167   11943 sub AUTOLOAD { $null }
17             1;
18              
19              
20             __END__