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   15243 use strict;
  3         24  
  3         92  
4 3     3   14 use warnings;
  3         6  
  3         141  
5              
6             require DynaLoader;
7              
8 3     3   18 use vars qw(@ISA $VERSION);
  3         6  
  3         449  
9             @ISA = qw(DynaLoader);
10             $VERSION = '0.20';
11              
12             bootstrap Crypt::OpenSSL::DSA $VERSION;
13              
14             sub read_pub_key_str {
15 1     1 1 7 my ($class, $key_str) = @_;
16 1         65 $class->_load_key(0, $key_str);
17             }
18              
19             sub read_priv_key_str {
20 1     1 1 16225 my ($class, $key_str) = @_;
21 1         21 $class->_load_key(1, $key_str);
22             }
23              
24             1;
25             __END__