File Coverage

blib/lib/Hash/Case/Lower.pm
Criterion Covered Total %
statement 23 23 100.0
branch 1 2 50.0
condition n/a
subroutine 10 10 100.0
pod 0 1 0.0
total 34 36 94.4


line stmt bran cond sub pod time code
1             # Copyrights 2002-2003,2007-2012 by Mark Overmeer.
2             # For other contributors see ChangeLog.
3             # See the manual pages for details on the licensing terms.
4             # Pod stripped from pm file by OODoc 2.00.
5 1     1   28997 use strict;
  1         3  
  1         36  
6 1     1   5 use warnings;
  1         2  
  1         49  
7              
8             package Hash::Case::Lower;
9 1     1   5 use vars '$VERSION';
  1         22  
  1         97  
10             $VERSION = '1.02';
11              
12 1     1   6 use base 'Hash::Case';
  1         2  
  1         663  
13              
14 1     1   9 use Log::Report 'hash-case';
  1         1  
  1         5  
15              
16              
17             sub init($)
18 3     3 0 9 { my ($self, $args) = @_;
19              
20 3         19 $self->SUPER::native_init($args);
21              
22 3 50       13 error __x"no options possible for {pkg}", pkg => __PACKAGE__
23             if keys %$args;
24              
25 3         14 $self;
26             }
27              
28 13     13   10246 sub FETCH($) { $_[0]->{lc $_[1]} }
29 6     6   2971 sub STORE($$) { $_[0]->{lc $_[1]} = $_[2] }
30 1     1   2783 sub EXISTS($) { exists $_[0]->{lc $_[1]} }
31 1     1   8 sub DELETE($) { delete $_[0]->{lc $_[1]} }
32              
33             1;