File Coverage

blib/lib/Salvation/TC/Type/Object.pm
Criterion Covered Total %
statement 17 17 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 25 26 96.1


line stmt bran cond sub pod time code
1             package Salvation::TC::Type::Object;
2              
3 4     4   1557 use strict;
  4         6  
  4         124  
4 4     4   15 use warnings;
  4         6  
  4         121  
5              
6 4     4   15 use base 'Salvation::TC::Type';
  4         5  
  4         253  
7              
8 4     4   16 use Scalar::Util 'blessed';
  4         6  
  4         158  
9 4     4   18 use Salvation::TC::Exception::WrongType ();
  4         5  
  4         417  
10              
11              
12             sub Check {
13              
14 1     1 1 2 my ( $class, $value ) = @_;
15              
16 1 50       8 blessed( $value ) || Salvation::TC::Exception::WrongType -> throw( 'type' => 'Object', 'value' => $value );
17             }
18              
19             1;
20              
21             __END__