| line |
true |
false |
branch |
|
12
|
1 |
0 |
if $] >= 5.012 |
|
58
|
1 |
0 |
unless ($$self[4] = delete $args{'bin'}) |
|
61
|
0 |
3 |
if -e $_ |
|
65
|
0 |
1 |
exists $args{'keep_alive'} ? : |
|
76
|
0 |
1 |
@_ > 2 ? : |
|
83
|
0 |
0 |
if $command =~ /[\r\n]/ |
|
84
|
0 |
0 |
if $command =~ tr/\000//d |
|
97
|
0 |
0 |
if ($live) { } |
|
118
|
0 |
0 |
if ($maybe_open_file and defined $$self[3]) |
|
126
|
0 |
0 |
if defined $u and length $u |
|
131
|
0 |
0 |
if $tries++ < 3 |
|
137
|
0 |
0 |
if $retry |
|
141
|
0 |
0 |
unless $$headers{'Status'} eq 'OK' |
|
151
|
0 |
0 |
unless $$headers{'Status'} eq 'OK' |
|
154
|
0 |
0 |
if (exists $$headers{'Content-Length'}) { } |
|
169
|
0 |
0 |
unless defined $$self[4] |
|
173
|
0 |
0 |
if ${^TAINT} |
|
176
|
0 |
0 |
$rego ? : |
|
|
0 |
0 |
unless open3(@_, $$self[4], '-h', $rego ? ('-r', $rego) : ()) |
|
206
|
0 |
0 |
unless $line =~ s/\r\n\z// |
|
211
|
0 |
0 |
unless $past_first++ |
|
212
|
0 |
0 |
unless length $line |
|
213
|
0 |
0 |
unless $line =~ s/^([^:]+): // |
|
223
|
0 |
0 |
if (exists $$h{'Diagnostic'}) |
|
225
|
0 |
0 |
if exists $$h{'Error'} |
|
227
|
0 |
0 |
if exists $$h{'Error'} |
|
244
|
1 |
0 |
unless defined blessed($self) and $self->isa('MoneyWorks') |
|
249
|
0 |
0 |
if (exists $args{'map'}) { } |
|
250
|
0 |
0 |
if ($map_arg = delete $args{'map'}) =~ /[\r\n]/ |
|
254
|
0 |
0 |
if (exists $args{'data_file'}) { } |
|
260
|
0 |
0 |
if ($data =~ /[\n\r]/) { } |
|
267
|
0 |
0 |
unless CORE::close $fh |
|
337
|
0 |
0 |
unless defined wantarray |
|
361
|
0 |
0 |
unless defined $fields |
|
371
|
0 |
0 |
if ($using_hash) |
|
373
|
0 |
0 |
if $_ eq $key |
|
375
|
0 |
0 |
unless $key_is_in_fields |
|
385
|
0 |
0 |
if exists $args{'search'} |
|
392
|
0 |
0 |
$using_hash ? : |
|
398
|
0 |
0 |
$using_hash ? : |
|
401
|
0 |
0 |
if $using_hash and not $key_is_in_fields |
|
415
|
1 |
0 |
unless my $handles = delete $$self[6] |
|
416
|
0 |
0 |
unless CORE::close $$handles[1] |
|
449
|
0 |
0 |
unless $self->EXISTS($row) |
|
499
|
0 |
0 |
if $str =~ /[\r\n]/ |
|
504
|
0 |
0 |
if --vec($delim, 0, 8) == 31 |
|
520
|
0 |
0 |
if ($str =~ /`/) { } |