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   18 use strict;
  4         5  
  4         129  
4 4     4   14 use base qw( Salvation::TC::Exception );
  4         5  
  4         1401  
5              
6             sub getType {
7 7 50   7 0 33 return( ref( $_[0] ) ? $_[0]->{ 'type' } : '' );
8             }
9              
10             sub getValue {
11 7 50   7 0 68 return( ref( $_[0] ) ? $_[0]->{ 'value' } : '' );
12             }
13              
14             1;
15             __END__