File Coverage

blib/lib/Property/Lookup/Local.pm
Criterion Covered Total %
statement 17 19 89.4
branch 0 2 0.0
condition n/a
subroutine 6 7 85.7
pod 1 1 100.0
total 24 29 82.7


line stmt bran cond sub pod time code
1 1     1   30297 use 5.008;
  1         4  
  1         41  
2 1     1   6 use strict;
  1         1  
  1         34  
3 1     1   6 use warnings;
  1         2  
  1         71  
4              
5             package Property::Lookup::Local;
6             BEGIN {
7 1     1   28 $Property::Lookup::Local::VERSION = '1.101400';
8             }
9             # ABSTRACT: Package hash-based property lookup layer
10 1     1   984 use parent 'Property::Lookup::Base';
  1         329  
  1         5  
11             our %opt; # so it can be overridden via local()
12              
13             sub AUTOLOAD {
14 3     3   79 my $self = shift;
15 3         18 (my $method = our $AUTOLOAD) =~ s/.*://;
16 3         6 our %opt;
17 3         22 $opt{$method};
18             }
19              
20             sub get_config {
21 0     0 1   our %opt;
22 0 0         wantarray ? %opt: \%opt;
23             }
24              
25             1;
26              
27              
28             __END__