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   1274 use strict;
  2         3  
  2         52  
4 2     2   10 use vars qw( $VERSION );
  2         2  
  2         100  
5             $VERSION = '20110724.005';
6              
7 2     2   8 use Cwd qw();
  2         4  
  2         22  
8 2     2   7 use File::Spec qw();
  2         2  
  2         29  
9 2     2   7 use File::Basename qw(dirname);
  2         3  
  2         263  
10              
11             sub SSL_ca_file { # Stolen from Mozilla::CA
12 1     1 1 853 my $file = File::Spec->catfile( dirname(__FILE__), "CA", "root.crt" );
13              
14 1 50       11 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__