File Coverage

blib/lib/Data/Object/Role/Type.pm
Criterion Covered Total %
statement 12 15 80.0
branch n/a
condition n/a
subroutine 4 7 57.1
pod 0 3 0.0
total 16 25 64.0


line stmt bran cond sub pod time code
1             # The Default Data Type Role
2             package Data::Object::Role::Type;
3              
4 217     217   187505 use 5.010;
  217         688  
  217         8267  
5 217     217   1043 use Data::Object::Role;
  217         325  
  217         1458  
6              
7 217     217   55836 use Data::Object ();
  217         419  
  217         3522  
8 217     217   4246 use Scalar::Util ();
  217         335  
  217         20787  
9              
10             our $VERSION = '0.20'; # 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;