File Coverage

blib/lib/SVN/Dump/Text.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 4 4 100.0
total 26 26 100.0


line stmt bran cond sub pod time code
1             package SVN::Dump::Text;
2              
3 13     13   35373 use strict;
  13         25  
  13         464  
4 13     13   65 use warnings;
  13         22  
  13         3231  
5              
6             my $NL = "\012";
7              
8             # blessed string reference
9             sub new {
10 99     99 1 859 my ( $class, @args ) = @_;
11 99         693 return bless \( join '', @args ), $class;
12             }
13              
14             sub set {
15 27     27 1 44 my ( $self, $text ) = @_;
16 27         74 $$self = $text;
17             }
18 180     180 1 796 sub get { ${ $_[0] } }
  180         4011  
19             *as_string = \&get;
20              
21             sub digest {
22 7     7 1 19 my ( $self, $algo ) = @_;
23 7         12 return eval {
24 7         57 require Digest;
25 7         52 Digest->new( uc $algo )->add($$self)->hexdigest;
26             };
27             }
28              
29             1;
30              
31             __END__