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   204154 use 5.010;
  219         669  
5 219     219   1086 use Data::Object::Role;
  219         1205  
  219         1460  
6              
7 219     219   59014 use Data::Object ();
  219         409  
  219         3783  
8 219     219   1002 use Scalar::Util ();
  219         350  
  219         21782  
9              
10             our $VERSION = '0.41'; # 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;