| line |
true |
false |
branch |
|
27
|
0 |
0 |
if (@_ == 1 and ref $_[0] and ref $_[0] eq 'HASH') { } |
|
38
|
0 |
0 |
unless defined $args{$opt} |
|
43
|
0 |
0 |
unless exists $args{'anonymous'} |
|
45
|
0 |
0 |
if exists $args{'url'} |
|
50
|
0 |
0 |
if (-e $a{'rsa_private_key'}) { } |
|
51
|
0 |
0 |
unless open my $fh, '<', $a{'rsa_private_key'} |
|
76
|
0 |
0 |
if ($method =~ /^(?:PUT|POST)$/) |
|
78
|
0 |
0 |
if ($headers) { } |
|
79
|
0 |
0 |
unless (eval {
do {
$h = $headers->clone
}
}) |
|
88
|
0 |
0 |
unless (length $h->content_type) |
|
91
|
0 |
0 |
unless (defined $h->header('Accept')) |
|
116
|
0 |
0 |
if (defined $query) |
|
124
|
0 |
0 |
if ($path =~ /\?(.+)$/) |
|
139
|
0 |
0 |
if ($method =~ /^(?:POST|PUT)$/) |