File Coverage

blib/lib/Salvation/TC/Exception/WrongType.pm
Criterion Covered Total %
statement 8 8 100.0
branch 2 4 50.0
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 14 18 77.7


line stmt bran cond sub pod time code
1             package Salvation::TC::Exception::WrongType;
2              
3 4     4   16 use strict;
  4         4  
  4         118  
4 4     4   16 use base qw( Salvation::TC::Exception );
  4         5  
  4         1251  
5              
6             sub getType {
7 7 50   7 0 32 return( ref( $_[0] ) ? $_[0]->{ 'type' } : '' );
8             }
9              
10             sub getValue {
11 7 50   7 0 80 return( ref( $_[0] ) ? $_[0]->{ 'value' } : '' );
12             }
13              
14             1;
15             __END__