File Coverage

blib/lib/Crypt/OpenSSL/DSA.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 2 2 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Crypt::OpenSSL::DSA;
2              
3 3     3   16008 use strict;
  3         6  
  3         100  
4 3     3   16 use warnings;
  3         4  
  3         148  
5              
6             require DynaLoader;
7              
8 3     3   13 use vars qw(@ISA $VERSION);
  3         7  
  3         486  
9             @ISA = qw(DynaLoader);
10             $VERSION = '0.18';
11              
12             bootstrap Crypt::OpenSSL::DSA $VERSION;
13              
14             sub read_pub_key_str {
15 1     1 1 5 my ($class, $key_str) = @_;
16 1         19 $class->_load_key(0, $key_str);
17             }
18              
19             sub read_priv_key_str {
20 1     1 1 36586 my ($class, $key_str) = @_;
21 1         24 $class->_load_key(1, $key_str);
22             }
23              
24             1;
25             __END__