File Coverage

blib/lib/Paws/API/StrToObjMapParser.pm
Criterion Covered Total %
statement 3 7 42.8
branch 0 2 0.0
condition n/a
subroutine 1 2 50.0
pod 0 1 0.0
total 4 12 33.3


line stmt bran cond sub pod time code
1             package Paws::API::StrToObjMapParser;
2 9     9   120609 use Moose::Role;
  9         20  
  9         60  
3              
4             sub ValueFor {
5 0     0 0   my ($self, $key) = shift;
6 0           my $value = $self->Map->{ $key };
7 0 0         die "No value for $key" if not defined ($value);
8 0           return $value;
9             }
10             1;