File Coverage

blib/lib/Data/Object/Scalar.pm
Criterion Covered Total %
statement 12 13 92.3
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 2 0.0
total 17 21 80.9


line stmt bran cond sub pod time code
1             # ABSTRACT: Scalar Object for Perl 5
2             package Data::Object::Scalar;
3              
4 10     10   6407 use 5.010;
  10         33  
5              
6 10     10   55 use Scalar::Util 'blessed';
  10         16  
  10         693  
7 10     10   2244 use Data::Object 'deduce_deep', 'detract_deep', 'throw';
  10         28  
  10         574  
8 10     10   2354 use Data::Object::Class 'with';
  10         21  
  10         81  
9              
10             with 'Data::Object::Role::Scalar';
11              
12             our $VERSION = '0.42'; # VERSION
13              
14             sub data {
15 0     0 0 0 goto &detract;
16             }
17              
18             sub detract {
19 2     2 0 16 return detract_deep shift;
20             }
21              
22             1;
23              
24             __END__