| line |
true |
false |
branch |
|
15
|
0 |
0 |
if ($args and ref $args ne 'HASH') |
|
20
|
0 |
0 |
unless $uri |
|
25
|
0 |
0 |
if $uri =~ m[^https?://[^/]+$] |
|
28
|
0 |
0 |
if ($$args{'body'}) |
|
29
|
0 |
0 |
if (ref $$args{'body'} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $$args{'body'} eq 'ARRAY') { } |
|
33
|
0 |
0 |
if (ref $$args{'body'}{$k} eq 'ARRAY') { } |
|
47
|
0 |
0 |
defined $$args{'body'}[$i + 1] ? : |
|
51
|
0 |
0 |
if (exists $$args{'body_hash'}{$key}) |
|
52
|
0 |
0 |
if (ref $$args{'body_hash'}{$key} eq 'ARRAY') { } |
|
68
|
0 |
0 |
if ($sub) { } |
|
69
|
0 |
0 |
if ($$args{'output_file'}) { } |
|
70
|
0 |
0 |
unless open my $fh, '>', $$args{'output_file'} |
|
87
|
0 |
0 |
if $_[0] and $_[0] eq 'Plient' |
|
89
|
0 |
0 |
unless $uri |
|
90
|
0 |
0 |
if ($uri =~ /^http:/i) { } |
|
|
0 |
0 |
elsif ($uri =~ /^https:/i) { } |
|
|
0 |
0 |
elsif ($uri =~ /^file:/i) { } |
|
106
|
0 |
1 |
if $_[0] and $_[0] eq 'Plient' |
|
108
|
0 |
1 |
unless $protocol |
|
109
|
1 |
0 |
if ($protocol eq 'file') { } |
|
|
0 |
0 |
elsif ($protocol eq 'http') { } |
|
|
0 |
0 |
elsif ($protocol eq 'https') { } |
|
110
|
1 |
0 |
unless $bundle_mode |
|
114
|
0 |
0 |
unless $bundle_mode |
|
118
|
0 |
0 |
unless $bundle_mode |
|
129
|
1 |
0 |
if $_[0] and $_[0] eq 'Plient' |
|
131
|
0 |
1 |
unless $protocol |
|
135
|
0 |
1 |
unless $class |
|
144
|
0 |
0 |
unless $class |
|
146
|
0 |
0 |
if (my $sub = $class->support_method($method, $args)) { } |
|
158
|
2 |
1 |
if $found_handlers |
|
165
|
3 |
0 |
if $_[0] and $_[0] eq 'Plient' |
|
167
|
0 |
3 |
unless $handler |
|
168
|
2 |
1 |
if ($handler->can('support_protocol') and $handler->can('support_method')) { } |
|
182
|
0 |
0 |
if $_[0] and $_[0] eq 'Plient' |
|
183
|
0 |
0 |
if (my $protocol = lc shift()) { } |
|
189
|
0 |
0 |
if ($preference) |
|
190
|
0 |
0 |
/^Plient::Handler::/ ? : |
|
191
|
0 |
0 |
$_ =~ /::/ ? : |
|
198
|
0 |
0 |
unless $ENV{'PLIENT_HANDLER_PREFERENCE_STRICT'} |
|
209
|
0 |
1 |
if $bundle_mode |
|
213
|
3 |
8 |
if (-e $handler_dir) |
|
214
|
3 |
0 |
if (opendir my $dh, $handler_dir) { } |
|
215
|
15 |
6 |
/(\w+)\.pm/ ? : |
|
224
|
0 |
15 |
unless eval "require $_" |
|
242
|
0 |
0 |
if $_[0] and $_[0] eq 'Plient' |
|
245
|
0 |
0 |
if ($handlers) { } |
|
246
|
0 |
0 |
if (ref $handlers eq 'ARRAY') { } |