File Coverage

lib/Crypt/Perl/X/Base.pm
Criterion Covered Total %
statement 29 31 93.5
branch 5 6 83.3
condition 2 3 66.6
subroutine 8 9 88.8
pod 0 3 0.0
total 44 52 84.6


line stmt bran cond sub pod time code
1             package Crypt::Perl::X::Base;
2              
3 17     17   3593 use strict;
  17         94  
  17         470  
4 10     10   54 use warnings;
  10         15  
  10         188  
5              
6 10     10   39 use Carp ();
  10         20  
  10         2904  
7              
8             sub new {
9 1210     1210 0 3528 my ( $class, $string, $props_hr ) = @_;
10              
11 1210         3967 $class->_check_overload();
12              
13 1210 100       4086 my %attrs = $props_hr ? %$props_hr : ();
14              
15 1210         14179 return bless [ $string, \%attrs ], $class;
16             }
17              
18             sub get {
19 0     0 0 0 my ( $self, $attr ) = @_;
20              
21             #Do we need to clone this? Could JSON suffice, or do we need Clone?
22 0         0 return $self->[1]{$attr};
23             }
24              
25             sub to_string {
26 320     320 0 23916 my ($self) = @_;
27              
28 320         4684 return sprintf '%s: %s', ref($self), $self->[0];
29             }
30              
31             #----------------------------------------------------------------------
32              
33             my %_OVERLOADED;
34              
35             sub _check_overload {
36 1210     1210   2445 my ( $class, $str ) = @_;
37              
38             #cf. eval_bug.readme
39 1210         1843 my $eval_err = $@;
40              
41 10   66 10   55 $_OVERLOADED{$class} ||= eval qq{
  10         20  
  10         173  
  1210         4608  
42             package $class;
43             use overload (q<""> => __PACKAGE__->can('__spew'));
44             1;
45             };
46              
47             #Should never happen as long as overload.pm is available.
48 1210 50       3006 warn if !$_OVERLOADED{$class};
49              
50 1210         1728 $@ = $eval_err;
51              
52 1210         1883 return;
53             }
54              
55             sub __spew {
56 38     38   124 my ($self) = @_;
57              
58 38         88 my $spew = $self->to_string();
59              
60 38 100       123 if ( substr( $spew, -1 ) ne "\n" ) {
61 1         10 $spew .= Carp::longmess();
62             }
63              
64 38         702 return $spew;
65             }
66              
67             1;