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   6400 use 5.010;
  10         34  
5              
6 10     10   50 use Scalar::Util 'blessed';
  10         13  
  10         874  
7 10     10   2195 use Data::Object 'deduce_deep', 'detract_deep', 'throw';
  10         34  
  10         728  
8 10     10   2805 use Data::Object::Class 'with';
  10         20  
  10         90  
9              
10             with 'Data::Object::Role::Scalar';
11              
12             our $VERSION = '0.41'; # VERSION
13              
14             sub data {
15 0     0 0 0 goto &detract;
16             }
17              
18             sub detract {
19 2     2 0 19 return detract_deep shift;
20             }
21              
22             1;
23              
24             __END__