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   658840 use strict;
  2         5  
  2         93  
4 2     2   13 use vars qw( $VERSION );
  2         4  
  2         148  
5             $VERSION = '20210114.003';
6              
7 2     2   26 use Cwd qw();
  2         5  
  2         42  
8 2     2   26 use File::Spec qw();
  2         6  
  2         61  
9 2     2   13 use File::Basename qw(dirname);
  2         4  
  2         437  
10              
11             sub SSL_ca_file { # Stolen from Mozilla::CA
12 1     1 1 2129 my $file = File::Spec->catfile( dirname(__FILE__), "CA", "root.crt" );
13              
14 1 50       15 unless( File::Spec->file_name_is_absolute($file) ) {
15 0         0 $file = File::Spec->catfile(Cwd::cwd(), $file);
16             }
17              
18 1         4 return $file;
19             }
20              
21             1;
22              
23             __END__