| line |
true |
false |
branch |
|
32
|
4 |
36 |
ref $_[-1] eq 'CODE' ? : |
|
33
|
2 |
38 |
ref $_[0] ? : |
|
44
|
0 |
1499 |
unless defined $l |
|
45
|
40 |
1459 |
unless $l |
|
50
|
1 |
39 |
if $? |
|
56
|
4 |
0 |
$args->{'cert'} ? : |
|
60
|
0 |
4 |
unless my $subject = $self->_render_subject($self->subject, $args->{'subject'}) |
|
73
|
2 |
0 |
$args->{'crl'} ? : |
|
80
|
2 |
0 |
$args->{'passphrase'} ? : |
|
88
|
7 |
1 |
$args->{'csr'} ? : |
|
93
|
0 |
8 |
unless my $subject = $self->_render_subject($self->subject, $args->{'subject'}) |
|
97
|
3 |
5 |
$args->{'passphrase'} ? : |
|
110
|
0 |
7 |
unless -w $home |
|
112
|
0 |
7 |
unless chmod 0700, $home->child("private") |
|
114
|
7 |
0 |
if ($args->{'templates'}) |
|
116
|
7 |
0 |
unless -e ($file = $home->child("crlnumber")) |
|
117
|
7 |
0 |
unless -e ($file = $home->child("index.txt")) |
|
118
|
7 |
0 |
unless -e ($file = $home->child("index.txt.attr")) |
|
120
|
7 |
0 |
unless -e ($file = $home->child("serial")) |
|
128
|
11 |
1 |
$args->{'key'} ? : |
|
133
|
7 |
5 |
if ($passphrase = $args->{'passphrase'}) |
|
135
|
7 |
0 |
if $passphrase =~ /^file:(.+)/ and not -e $1 |
|
141
|
7 |
5 |
$passphrase ? : |
|
149
|
1 |
0 |
@_ > 1 ? : |
|
|
1 |
16 |
@_ ? : |
|
158
|
29 |
20 |
$path ? : |
|
170
|
2 |
0 |
$args->{'passphrase'} ? : |
|
177
|
6 |
1 |
$args->{'cert'} ? : |
|
194
|
14 |
6 |
unless @_ |
|
218
|
0 |
2 |
unless open my $DEST, ">", $dest |
|
221
|
0 |
2 |
unless close $DEST |
|
227
|
22 |
15 |
if exists $args->{'home'} |
|
228
|
3 |
12 |
if $args->{'ca_key'} |
|
229
|
12 |
0 |
if $args->{'key'} |
|
235
|
1 |
24 |
if ref $val eq "HASH" |
|
239
|
21 |
3 |
index($val, '/') == 0 ? : |
|
248
|
0 |
25 |
unless defined $phrase and length $phrase |
|
249
|
0 |
25 |
if ref $phrase eq "SCALAR" |
|
266
|
3 |
0 |
if $_[1] =~ /Subject:\s+(.+)/ |
|
277
|
9 |
25 |
unless $i |
|
279
|
3 |
22 |
-r $i ? : |