File Coverage

blib/lib/Crypt/OpenSSL/Common.pm
Criterion Covered Total %
statement 11 15 73.3
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod n/a
total 15 22 68.1


line stmt bran cond sub pod time code
1             package Crypt::OpenSSL::Common;
2              
3 1     1   595 use 5.008008;
  1         13  
  1         40  
4 1     1   5 use strict;
  1         1  
  1         25  
5 1     1   4 use warnings;
  1         1  
  1         262  
6              
7             our $VERSION = '0.1';
8              
9             require Exporter;
10             our @EXPORT = qw();
11             our @EXPORT_OK = qw(get_error error_string version version_atbuild);
12             our %EXPORT_TAGS = (
13             all => [@EXPORT_OK]
14             );
15             *export = \&Exporter::export;
16              
17             sub import {
18 1     1   1839 load_crypto_strings();
19 1         1834 Exporter::export_to_level(__PACKAGE__, 1, @_);
20             }
21              
22             # A missing C::O::RSA method
23             sub Crypt::OpenSSL::RSA::new_from_file {
24 0     0     my($proto, $file) = @_;
25 0 0         open(my $pkfh, '<', $file) or die "Can't open key file: $!\n";
26 0           local $/ = undef;
27 0           return $proto->new_private_key(<$pkfh>);
28             }
29              
30             require XSLoader;
31             XSLoader::load('Crypt::OpenSSL::Common', $VERSION);
32              
33             1;
34             __END__