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             $SVN::Dump::Text::VERSION = '0.07';
3 12     12   70565 use strict;
  12         28  
  12         341  
4 12     12   70 use warnings;
  12         21  
  12         2465  
5              
6             my $NL = "\012";
7              
8             # blessed string reference
9             sub new {
10 100     100 1 1060 my ( $class, @args ) = @_;
11 100         421 return bless \( join '', @args ), $class;
12             }
13              
14             sub set {
15 27     27 1 49 my ( $self, $text ) = @_;
16 27         58 $$self = $text;
17             }
18 181     181 1 641 sub get { ${ $_[0] } }
  181         447  
19             *as_string = \&get;
20              
21             sub digest {
22 7     7 1 17 my ( $self, $algo ) = @_;
23 7         13 return eval {
24 7         39 require Digest;
25 7         36 Digest->new( uc $algo )->add($$self)->hexdigest;
26             };
27             }
28              
29             1;
30              
31             __END__