| line |
true |
false |
branch |
|
343
|
0 |
6 |
if (ref $_[0] eq 'HASH') { } |
|
354
|
0 |
6 |
if exists $args->{'version'} |
|
355
|
6 |
0 |
if exists $args->{'host'} |
|
356
|
0 |
6 |
if exists $args->{'ua'} |
|
357
|
4 |
2 |
if exists $args->{'openssl'} |
|
358
|
2 |
4 |
if exists $args->{'debug'} |
|
359
|
1 |
5 |
exists $args->{'loglevel'} ? : |
|
360
|
0 |
6 |
if exists $args->{'mailto'} |
|
362
|
2 |
4 |
if ($self->{'debug'}) |
|
367
|
6 |
0 |
unless (exists $self->{'ua'}) |
|
372
|
0 |
6 |
unless (exists $self->{'host'}) |
|
384
|
4 |
2 |
if (exists $args->{'account_key'}) |
|
391
|
0 |
6 |
if (exists $self->{'version'}) |
|
393
|
0 |
0 |
if ($self->{'version'} < $VERSION_MIN or $self->{'version'} > $VERSION_MAX) |
|
407
|
2 |
0 |
if (scalar @_ == 1) |
|
437
|
4 |
24 |
if (not ref $key) { } |
|
|
8 |
16 |
elsif (ref $key eq 'SCALAR') { } |
|
441
|
0 |
4 |
unless (-f $key) |
|
455
|
8 |
20 |
if ($args{'filename'}) |
|
458
|
0 |
8 |
unless ($args{'buffer'}) |
|
464
|
0 |
28 |
unless ($args{'buffer'}) |
|
469
|
20 |
8 |
unless ($args{'format'}) |
|
471
|
12 |
8 |
Protocol::ACME::Utils::looks_like_pem($args{'buffer'}) ? : |
|
476
|
12 |
16 |
if ($args{'format'} eq 'DER') |
|
481
|
15 |
13 |
if (exists $self->{'openssl'}) { } |
|
494
|
0 |
13 |
if ($@) |
|
505
|
2 |
11 |
if ($@) |
|
511
|
0 |
25 |
unless ($key) |
|
539
|
0 |
4 |
if ($resp->{'status'} != 200) |
|
546
|
4 |
0 |
unless ($self->{'version'}) |
|
548
|
4 |
0 |
if (exists $data->{'new-reg'}) { } |
|
|
0 |
0 |
elsif (exists $data->{'newNonce'}) { } |
|
562
|
4 |
0 |
if ($self->{'version'} == 1) { } |
|
564
|
0 |
4 |
unless (exists $data->{'new-reg'}) |
|
572
|
0 |
0 |
unless (exists $data->{'newNonce'}) |
|
589
|
0 |
4 |
if ($self->{'version'} > 1) |
|
602
|
0 |
0 |
if ($self->{'version'} < 2) |
|
607
|
0 |
0 |
unless ($self->{'nonce'}) |
|
626
|
4 |
0 |
if ($self->{'version'} == 1) { } |
|
|
0 |
0 |
elsif ($self->{'version'} == 2) { } |
|
648
|
0 |
0 |
if (exists $args{'mailto'}) { } |
|
|
0 |
0 |
elsif (exists $self->{'contact'}{'mailto'}) { } |
|
678
|
0 |
4 |
if (exists $args{'mailto'}) { } |
|
|
0 |
4 |
elsif (exists $self->{'contact'}{'mailto'}) { } |
|
695
|
3 |
0 |
if ($resp->{'status'} == 409) { } |
|
|
0 |
0 |
elsif ($resp->{'status'} == 201) { } |
|
706
|
2 |
0 |
if ($resp->{'status'} == 202) { } |
|
748
|
0 |
0 |
unless $pem |
|
781
|
2 |
0 |
if (exists $self->{'reg'}{'agreement'}) |
|
802
|
0 |
0 |
if ($resp->{'status'} == 202) { } |
|
821
|
0 |
0 |
unless ($cert) |
|
835
|
0 |
0 |
if ($resp->{'status'} != 200) |
|
857
|
0 |
0 |
if ($resp->{'status'} == 201) { } |
|
884
|
0 |
0 |
if ($_->{'type'} eq 'http-01') |
|
898
|
0 |
0 |
if ($ret == 0) { } |
|
931
|
0 |
0 |
if ($self->{'content'}{'status'} eq 'pending') { } |
|
|
0 |
0 |
elsif ($self->{'content'}{'status'} eq 'invalid') { } |
|
965
|
0 |
0 |
if (not ref $csr) { } |
|
|
0 |
0 |
elsif (ref $csr eq 'SCALAR') { } |
|
978
|
0 |
0 |
if ($args{'filename'}) |
|
981
|
0 |
0 |
unless ($args{'buffer'}) |
|
987
|
0 |
0 |
unless ($args{'buffer'}) |
|
992
|
0 |
0 |
unless ($args{'format'}) |
|
994
|
0 |
0 |
Protocol::ACME::Utils::looks_like_pem($args{'buffer'}) ? : |
|
997
|
0 |
0 |
$args{'format'} eq 'DER' ? : |
|
1005
|
0 |
0 |
if ($resp->{'status'} != 201) |
|
1012
|
0 |
0 |
if exists $links->{'up'} |
|
1013
|
0 |
0 |
if exists $resp->{'headers'}{'location'} |
|
1024
|
0 |
0 |
unless (exists $self->{'links'}{'chain'}) |
|
1031
|
0 |
0 |
if ($resp->{'status'} != 200) |
|
1058
|
4 |
0 |
unless $nodecode |
|
1095
|
5 |
0 |
unless $nodecode |
|
1108
|
7 |
0 |
if ($self->{'version'} == 1) { } |
|
|
0 |
0 |
elsif ($self->{'version'} == 2) { } |
|
1131
|
0 |
8 |
unless open my $fh, '<', $filename |
|
1133
|
0 |
8 |
unless sysread $fh, my $content, -s $fh |
|
1144
|
0 |
2 |
unless $arrayref |
|
1146
|
0 |
2 |
unless (ref $arrayref) |
|
1157
|
4 |
0 |
if ($url and $rel) { } |
|
1175
|
28 |
88 |
if (UNIVERSAL::isa($bigint, 'Math::BigInt')) { } |
|
1179
|
14 |
14 |
if (length($hex) % 2) |