File Coverage

blib/lib/TM/Easy/Map.pm
Criterion Covered Total %
statement 0 8 0.0
branch 0 2 0.0
condition n/a
subroutine 0 2 0.0
pod 0 2 0.0
total 0 14 0.0


line stmt bran cond sub pod time code
1             package TM::Easy::Map;
2              
3             sub new {
4 0     0 0   my $class = shift;
5 0 0         my $tm = shift; die unless $tm->isa ('TM');
  0            
6 0           my %self;
7 0           tie %self, 'TM::Tied::Map', $tm;
8 0           return bless \%self, $class;
9             }
10              
11             sub map {
12 0     0 0   my $self = shift;
13 0           return $self->{__tm};
14             }
15             1;