File Coverage

blib/lib/Hash/Missing.pm
Criterion Covered Total %
statement 27 27 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 35 35 100.0


line stmt bran cond sub pod time code
1             package Hash::Missing;
2              
3 1     1   26835 use 5.006;
  1         3  
  1         35  
4 1     1   5 use strict;
  1         2  
  1         27  
5 1     1   6 use warnings;
  1         2  
  1         23  
6 1     1   899 use utf8;
  1         10  
  1         5  
7              
8 1     1   34 use Carp qw(carp);
  1         2  
  1         74  
9              
10             use constant _default => sub {
11 1         22 carp "missing hash key: $_";
12 1         682 return undef;
13 1     1   6 };
  1         1  
  1         66  
14              
15             BEGIN {
16 1     1   494 require Hash::DefaultValue;
17 1     1   5 no warnings 'once';
  1         1  
  1         56  
18 1         3 $Hash::Missing::AUTHORITY = 'cpan:TOBYINK';
19 1         1 $Hash::Missing::VERSION = '0.007';
20 1         35 @Hash::Missing::ISA = qw(Hash::DefaultValue);
21             }
22              
23             __PACKAGE__
24             __END__