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   16413 use strict;
  3         4  
  3         105  
4 3     3   13 use vars qw( @ISA $VERSION $XS_VERSION );
  3         3  
  3         219  
5             $XS_VERSION = $VERSION = '0.73_03';
6             $VERSION = eval $VERSION;
7              
8 3     3   1733 use Bytes::Random::Secure;
  3         24831  
  3         260  
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   1007 use Crypt::SSLeay::X509;
  3         6  
  3         192  
22              
23             # A xsupp bug made this necessary
24 2     2   606 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__