File Coverage

blib/lib/Data/Object/Autobox/Composite/Code.pm
Criterion Covered Total %
statement 15 17 88.2
branch n/a
condition n/a
subroutine 5 7 71.4
pod 0 2 0.0
total 20 26 76.9


line stmt bran cond sub pod time code
1             package Data::Object::Autobox::Composite::Code;
2              
3 2     2   1783 use 5.010;
  2         5  
  2         83  
4 2     2   9 use strict;
  2         2  
  2         60  
5 2     2   8 use warnings;
  2         2  
  2         59  
6              
7 2     2   6 use parent 'Data::Object::Autobox::Common';
  2         3  
  2         41  
8              
9 2     2   107 use Data::Object::Class 'with';
  2         3  
  2         13  
10              
11             with 'Data::Object::Role::Code';
12              
13             sub data {
14 0     0 0   goto &detract;
15             }
16            
17             sub detract {
18 0     0 0   return shift;
19             }
20              
21             1;