File Coverage

blib/lib/CACertOrg/CA.pm
Criterion Covered Total %
statement 18 19 94.7
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 26 28 92.8


line stmt bran cond sub pod time code
1             package CACertOrg::CA;
2              
3 2     2   2562 use strict;
  2         6  
  2         98  
4 2     2   12 use vars qw( $VERSION );
  2         4  
  2         126  
5             $VERSION = '20110724.004';
6              
7 2     2   22 use Cwd qw();
  2         13  
  2         32  
8 2     2   11 use File::Spec qw();
  2         6  
  2         103  
9 2     2   12 use File::Basename qw(dirname);
  2         3  
  2         543  
10              
11             sub SSL_ca_file { # Stolen from Mozilla::CA
12 1     1 1 1010 my $file = File::Spec->catfile( dirname(__FILE__), "CA", "root.crt" );
13              
14 1 50       14 unless( File::Spec->file_name_is_absolute($file) ) {
15 0         0 $file = File::Spec->catfile(Cwd::cwd(), $file);
16             }
17              
18 1         3 return $file;
19             }
20              
21             1;
22              
23             __END__