File Coverage

blib/lib/Property/Lookup/Hash.pm
Criterion Covered Total %
statement 16 18 88.8
branch n/a
condition n/a
subroutine 6 7 85.7
pod 1 1 100.0
total 23 26 88.4


line stmt bran cond sub pod time code
1 2     2   80811 use 5.008;
  2         8  
  2         95  
2 2     2   11 use strict;
  2         4  
  2         67  
3 2     2   10 use warnings;
  2         4  
  2         140  
4              
5             package Property::Lookup::Hash;
6             BEGIN {
7 2     2   46 $Property::Lookup::Hash::VERSION = '1.101400';
8             }
9             # ABSTRACT: Hash-based property lookup layer
10 2     2   1385 use parent 'Property::Lookup::Base';
  2         373  
  2         12  
11             __PACKAGE__->mk_hash_accessors(qw(hash));
12              
13             sub AUTOLOAD {
14 8     8   23116 my $self = shift;
15 8         47 (my $method = our $AUTOLOAD) =~ s/.*://;
16 8         34 $self->hash($method);
17             }
18              
19             sub get_config {
20 0     0 1   my $self = shift;
21 0           $self->hash;
22             }
23              
24             1;
25              
26              
27             __END__