File Coverage

blib/lib/Data/Object/Role/Defined.pm
Criterion Covered Total %
statement 5 6 83.3
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 7 10 70.0


line stmt bran cond sub pod time code
1             # Defined Data Type Role for Perl 5
2             package Data::Object::Role::Defined;
3              
4 219     219   128607 use 5.010;
  219         672  
5 219     219   1049 use Data::Object::Role;
  219         347  
  219         1837  
6              
7             our $VERSION = '0.41'; # VERSION
8              
9             sub defined {
10 0     0 0   return 1
11             }
12              
13             1;