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