| line |
true |
false |
branch |
|
32
|
4 |
36 |
ref $_[-1] eq 'CODE' ? : |
|
33
|
2 |
38 |
ref $_[0] ? : |
|
44
|
0 |
1387 |
unless defined $l |
|
45
|
40 |
1347 |
unless $l |
|
50
|
1 |
39 |
if $? |
|
56
|
4 |
0 |
$args->{'cert'} ? : |
|
59
|
0 |
4 |
unless my $subject = $self->_render_subject($self->subject, $args->{'subject'}) |
|
72
|
2 |
0 |
$args->{'crl'} ? : |
|
79
|
2 |
0 |
$args->{'passphrase'} ? : |
|
86
|
7 |
1 |
$args->{'csr'} ? : |
|
90
|
0 |
8 |
unless my $subject = $self->_render_subject($self->subject, $args->{'subject'}) |
|
93
|
3 |
5 |
$args->{'passphrase'} ? : |
|
106
|
0 |
7 |
unless -w $home |
|
108
|
0 |
7 |
unless chmod 0700, $home->child("private") |
|
110
|
7 |
0 |
if ($args->{'templates'}) |
|
112
|
7 |
0 |
unless -e ($file = $home->child("crlnumber")) |
|
113
|
7 |
0 |
unless -e ($file = $home->child("index.txt")) |
|
114
|
7 |
0 |
unless -e ($file = $home->child("index.txt.attr")) |
|
115
|
7 |
0 |
unless -e ($file = $home->child("serial")) |
|
123
|
11 |
1 |
$args->{'key'} ? : |
|
128
|
7 |
5 |
if ($passphrase = $args->{'passphrase'}) |
|
130
|
7 |
0 |
if $passphrase =~ /^file:(.+)/ and not -e $1 |
|
136
|
7 |
5 |
$passphrase ? : |
|
144
|
1 |
0 |
@_ > 1 ? : |
|
|
1 |
16 |
@_ ? : |
|
153
|
29 |
20 |
$path ? : |
|
165
|
2 |
0 |
$args->{'passphrase'} ? : |
|
172
|
6 |
1 |
$args->{'cert'} ? : |
|
189
|
14 |
6 |
unless @_ |
|
213
|
0 |
2 |
unless open my $DEST, ">", $dest |
|
216
|
0 |
2 |
unless close $DEST |
|
229
|
22 |
15 |
if exists $args->{'home'} |
|
230
|
3 |
12 |
if $args->{'ca_key'} |
|
231
|
12 |
0 |
if $args->{'key'} |
|
237
|
1 |
24 |
if ref $val eq "HASH" |
|
241
|
21 |
3 |
index($val, '/') == 0 ? : |
|
250
|
0 |
25 |
unless defined $phrase and length $phrase |
|
251
|
0 |
25 |
if ref $phrase eq "SCALAR" |
|
268
|
3 |
0 |
if $_[1] =~ /Subject:\s+(.+)/ |
|
279
|
9 |
25 |
unless $i |
|
281
|
3 |
22 |
-r $i ? : |