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.08';
3 12     12   59712 use strict;
  12         26  
  12         284  
4 12     12   50 use warnings;
  12         17  
  12         2114  
5              
6             my $NL = "\012";
7              
8             # blessed string reference
9             sub new {
10 100     100 1 887 my ( $class, @args ) = @_;
11 100         356 return bless \( join '', @args ), $class;
12             }
13              
14             sub set {
15 27     27 1 47 my ( $self, $text ) = @_;
16 27         47 $$self = $text;
17             }
18 181     181 1 511 sub get { ${ $_[0] } }
  181         395  
19             *as_string = \&get;
20              
21             sub digest {
22 7     7 1 13 my ( $self, $algo ) = @_;
23 7         9 return eval {
24 7         29 require Digest;
25 7         25 Digest->new( uc $algo )->add($$self)->hexdigest;
26             };
27             }
28              
29             1;
30              
31             __END__