File Coverage

blib/lib/Class/Trait/Lib/TPrintable.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             package TPrintable;
2              
3 2     2   11 use strict;
  2         4  
  2         100  
4 2     2   12 use warnings;
  2         5  
  2         99  
5              
6             our $VERSION = '0.31';
7              
8 2     2   12 use Class::Trait 'base';
  2         4  
  2         30  
9              
10 2     2   21 use overload (); # we need a method from overload
  2         3  
  2         238  
11              
12             ## overload operator
13              
14             our %OVERLOADS = ( '""' => "toString" );
15              
16             ## requires
17              
18             our @REQUIRES = qw(toString);
19              
20             ### methods
21              
22             # return the unmolested object string
23             sub stringValue {
24 4     4   11 my ($self) = @_;
25 4         16 return overload::StrVal($self);
26             }
27              
28             1;
29              
30             __END__