File Coverage

blib/lib/Data/Object/Scalar.pm
Criterion Covered Total %
statement 16 17 94.1
branch n/a
condition n/a
subroutine 6 7 85.7
pod 0 2 0.0
total 22 26 84.6


line stmt bran cond sub pod time code
1             # ABSTRACT: A Scalar Object for Perl 5
2             package Data::Object::Scalar;
3              
4 10     10   5760 use 5.010;
  10         42  
  10         415  
5              
6 10     10   47 use Carp 'confess';
  10         13  
  10         658  
7 10     10   52 use Scalar::Util 'blessed';
  10         14  
  10         588  
8 10     10   1668 use Data::Object 'deduce_deep', 'detract_deep';
  10         20  
  10         686  
9 10     10   1876 use Data::Object::Class 'with';
  10         140  
  10         93  
10              
11             with 'Data::Object::Role::Scalar';
12              
13             our $VERSION = '0.20'; # VERSION
14              
15             sub data {
16 0     0 0 0 goto &detract;
17             }
18              
19             sub detract {
20 2     2 0 16 return detract_deep shift;
21             }
22              
23             1;
24              
25             __END__