File Coverage

blib/lib/Path/Map/Match.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 5 5 100.0
total 29 29 100.0


line stmt bran cond sub pod time code
1             package Path::Map::Match;
2              
3 2     2   12 use strict;
  2         4  
  2         71  
4 2     2   10 use warnings;
  2         4  
  2         347  
5              
6             sub new {
7 15     15 1 49 my ($class, %attributes) = @_;
8 15         75 return bless \%attributes, $class;
9             }
10              
11 24     24 1 190 sub mapper { $_[0]->{mapper} }
12 16     16 1 82 sub values { $_[0]->{values} }
13 12     12 1 2359 sub handler { $_[0]->mapper->_target }
14              
15             sub variables {
16 12     12 1 19 my $self = shift;
17              
18 12         14 my %vars;
19 12         13 @vars{ @{ $self->mapper->_variables } } = @{ $self->values };
  12         24  
  12         29  
20              
21 12         76 return \%vars;
22             }
23              
24             1;
25              
26             __END__