File Coverage

blib/lib/Data/Object/Universal.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 2 0.0
total 24 26 92.3


line stmt bran cond sub pod time code
1             # ABSTRACT: A Universal Object for Perl 5
2             package Data::Object::Universal;
3              
4 10     10   5256 use 5.010;
  10         35  
  10         396  
5              
6 10     10   47 use Carp 'confess';
  10         12  
  10         599  
7 10     10   121 use Scalar::Util 'blessed';
  10         25  
  10         598  
8 10     10   1484 use Data::Object 'deduce_deep', 'detract_deep';
  10         23  
  10         568  
9 10     10   1615 use Data::Object::Class 'with';
  10         125  
  10         87  
10              
11             with 'Data::Object::Role::Universal';
12              
13             our $VERSION = '0.20'; # VERSION
14              
15             sub data {
16 1     1 0 7 goto &detract;
17             }
18              
19             sub detract {
20 2     2 0 15 return detract_deep shift;
21             }
22              
23             1;
24              
25             __END__