File Coverage

blib/lib/Data/Object/Universal.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 19 21 90.4


line stmt bran cond sub pod time code
1             # ABSTRACT: Universal Object for Perl 5
2             package Data::Object::Universal;
3              
4 10     10   6881 use 5.010;
  10         36  
5              
6 10     10   67 use Scalar::Util 'blessed';
  10         17  
  10         983  
7 10     10   7247 use Data::Object 'deduce_deep', 'detract_deep', 'throw';
  10         21  
  10         1155  
8 10     10   3186 use Data::Object::Class 'with';
  10         20  
  10         83  
9              
10             with 'Data::Object::Role::Universal';
11              
12             our $VERSION = '0.41'; # VERSION
13              
14             sub data {
15 1     1 0 10 goto &detract;
16             }
17              
18             sub detract {
19 2     2 0 16 return detract_deep shift;
20             }
21              
22             1;
23              
24             __END__