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   34467 use 5.006;
  1         5  
  1         63  
4 1     1   6 use strict;
  1         2  
  1         32  
5 1     1   6 use warnings;
  1         3  
  1         28  
6 1     1   693 use utf8;
  1         2  
  1         4  
7              
8 1     1   6 use Carp qw(carp);
  1         1  
  1         77  
9              
10             use constant _default => sub {
11 1         37 carp "missing hash key: $_";
12 1         1130 return undef;
13 1     1   5 };
  1         2  
  1         68  
14              
15             BEGIN {
16 1     1   490 require Hash::DefaultValue;
17 1     1   4 no warnings 'once';
  1         2  
  1         71  
18 1         4 $Hash::Missing::AUTHORITY = 'cpan:TOBYINK';
19 1         3 $Hash::Missing::VERSION = '0.006';
20 1         53 @Hash::Missing::ISA = qw(Hash::DefaultValue);
21             }
22              
23             __PACKAGE__
24             __END__