File Coverage

blib/lib/Crypt/CAST5_PP.pm
Criterion Covered Total %
statement 131 133 98.5
branch 15 24 62.5
condition 1 3 33.3
subroutine 15 17 88.2
pod 6 6 100.0
total 168 183 91.8


line stmt bran cond sub pod time code
1             package Crypt::CAST5_PP;
2              
3             require 5.004;
4 2     2   40542 use strict;
  2         5  
  2         82  
5 2     2   1903 use AutoLoader qw( AUTOLOAD );
  2         3731  
  2         13  
6 2     2   75 use Carp;
  2         3  
  2         157  
7 2     2   2005 use integer;
  2         25  
  2         10  
8 2     2   79 use vars qw( @s1 @s2 @s3 @s4 @s5 @s6 @s7 @s8 $VERSION );
  2         5  
  2         670  
9              
10             $VERSION = "1.04";
11              
12             sub new {
13 1     1 1 436 my ($class, $key) = @_;
14 1         3 my $cast5 = { };
15 1         3 bless $cast5 => $class;
16 1 50       5 $cast5->init($key) if defined $key;
17 1         4 return $cast5;
18             } # new
19              
20 0     0 1 0 sub blocksize { return 8 }
21 0     0 1 0 sub keysize { return 16 }
22              
23             1 # end module
24             __END__