File Coverage

blib/lib/Salvation/TC/Type/Str.pm
Criterion Covered Total %
statement 14 14 100.0
branch 2 2 100.0
condition 2 3 66.6
subroutine 5 5 100.0
pod 1 1 100.0
total 24 25 96.0


line stmt bran cond sub pod time code
1             package Salvation::TC::Type::Str;
2              
3 4     4   1502 use strict;
  4         6  
  4         119  
4 4     4   15 use warnings;
  4         6  
  4         88  
5              
6 4     4   17 use base 'Salvation::TC::Type::Text';
  4         4  
  4         1426  
7              
8 4     4   21 use Salvation::TC::Exception::WrongType ();
  4         4  
  4         215  
9              
10              
11             sub Check {
12              
13 63     63 1 72 my ( $class, $value ) = @_;
14              
15 63 100 66     436 ( defined $value && ! ref $value ) || Salvation::TC::Exception::WrongType -> throw( 'type' => 'Str', 'value' => $value );
16             }
17              
18              
19             1;
20              
21             __END__