File Coverage

blib/lib/Data/Object/Role/Type.pm
Criterion Covered Total %
statement 11 14 78.5
branch n/a
condition n/a
subroutine 4 7 57.1
pod 0 3 0.0
total 15 24 62.5


line stmt bran cond sub pod time code
1             # Default Data Type Role
2             package Data::Object::Role::Type;
3              
4 219     219   232217 use 5.010;
  219         695  
5 219     219   1089 use Data::Object::Role;
  219         371  
  219         1405  
6              
7 219     219   63463 use Data::Object ();
  219         431  
  219         3909  
8 219     219   1812 use Scalar::Util ();
  219         397  
  219         32329  
9              
10             our $VERSION = '0.42'; # VERSION
11              
12             sub objtype {
13 0     0 0   goto &Data::Object::deduce_type;
14             }
15              
16             sub refaddr {
17 0     0 0   goto &Scalar::Util::refaddr;
18             }
19              
20             sub reftype {
21 0     0 0   goto &Scalar::Util::reftype;
22             }
23              
24             1;