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   5995 use 5.010;
  10         30  
5              
6 10     10   51 use Scalar::Util 'blessed';
  10         16  
  10         678  
7 10     10   2071 use Data::Object 'deduce_deep', 'detract_deep', 'throw';
  10         19  
  10         621  
8 10     10   2313 use Data::Object::Class 'with';
  10         25  
  10         79  
9              
10             with 'Data::Object::Role::Universal';
11              
12             our $VERSION = '0.42'; # VERSION
13              
14             sub data {
15 1     1 0 9 goto &detract;
16             }
17              
18             sub detract {
19 2     2 0 16 return detract_deep shift;
20             }
21              
22             1;
23              
24             __END__