File Coverage

blib/lib/Crypt/SSLeay.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 7 71.4
pod n/a
total 18 22 81.8


line stmt bran cond sub pod time code
1             package Crypt::SSLeay;
2              
3 3     3   13445 use strict;
  3         3  
  3         79  
4 3     3   15 use vars qw( @ISA $VERSION $XS_VERSION );
  3         3  
  3         191  
5             $XS_VERSION = $VERSION = '0.73_06';
6             $VERSION = eval $VERSION;
7              
8 3     3   1388 use Bytes::Random::Secure;
  3         21181  
  3         225  
9              
10             eval {
11             require XSLoader;
12             XSLoader::load('Crypt::SSLeay', $XS_VERSION);
13             1;
14             }
15             or do {
16             require DynaLoader;
17             @ISA = qw(DynaLoader);
18             bootstrap Crypt::SSLeay;
19             };
20              
21 3     3   935 use Crypt::SSLeay::X509;
  3         6  
  3         172  
22              
23             # A xsupp bug made this necessary
24 2     2   439 sub Crypt::SSLeay::CTX::DESTROY { shift->free; }
25 0     0     sub Crypt::SSLeay::Conn::DESTROY { shift->free; }
26 0     0     sub Crypt::SSLeay::X509::DESTROY { shift->free; }
27              
28             1;
29              
30             __END__