| line |
true |
false |
branch |
|
57
|
1 |
0 |
unless ($self->[4] = delete $args{'bin'}) |
|
60
|
0 |
3 |
if -e $_ |
|
64
|
0 |
1 |
exists $args{'keep_alive'} ? : |
|
75
|
0 |
1 |
@_ > 2 ? : |
|
82
|
0 |
0 |
if $command =~ /[\r\n]/ |
|
83
|
0 |
0 |
if $command =~ tr/\000//d |
|
96
|
0 |
0 |
if ($live) { } |
|
117
|
0 |
0 |
if ($maybe_open_file and defined $self->[3]) |
|
125
|
0 |
0 |
if defined $u and length $u |
|
130
|
0 |
0 |
if $tries++ < 3 |
|
136
|
0 |
0 |
if $retry |
|
140
|
0 |
0 |
unless $headers->{'Status'} eq 'OK' |
|
150
|
0 |
0 |
unless $headers->{'Status'} eq 'OK' |
|
153
|
0 |
0 |
if (exists $headers->{'Content-Length'}) { } |
|
168
|
0 |
0 |
unless defined $self->[4] |
|
172
|
0 |
0 |
if ${^TAINT} |
|
175
|
0 |
0 |
$rego ? : |
|
|
0 |
0 |
unless open3(@_, $self->[4], '-h', $rego ? ('-r', $rego) : ()) |
|
205
|
0 |
0 |
unless $line =~ s/\r\n\z// |
|
210
|
0 |
0 |
unless $past_first++ |
|
211
|
0 |
0 |
unless length $line |
|
212
|
0 |
0 |
unless $line =~ s/^([^:]+): // |
|
222
|
0 |
0 |
if (exists $h->{'Diagnostic'}) |
|
224
|
0 |
0 |
if exists $h->{'Error'} |
|
226
|
0 |
0 |
if exists $h->{'Error'} |
|
243
|
1 |
0 |
unless defined &blessed($self) and $self->isa('MoneyWorks') |
|
248
|
0 |
0 |
if (exists $args{'map'}) { } |
|
249
|
0 |
0 |
if ($map_arg = delete $args{'map'}) =~ /[\r\n]/ |
|
253
|
0 |
0 |
if (exists $args{'data_file'}) { } |
|
259
|
0 |
0 |
if ($data =~ /[\n\r]/) { } |
|
266
|
0 |
0 |
unless CORE::close $fh |
|
336
|
0 |
0 |
unless defined wantarray |
|
359
|
0 |
0 |
unless defined $fields |
|
369
|
0 |
0 |
if ($using_hash) |
|
371
|
0 |
0 |
if $_ eq $key |
|
373
|
0 |
0 |
unless $key_is_in_fields |
|
384
|
0 |
0 |
if exists $args{'search'} |
|
390
|
0 |
0 |
$using_hash ? : |
|
397
|
0 |
0 |
$using_hash ? : |
|
399
|
0 |
0 |
if $using_hash and not $key_is_in_fields |
|
413
|
1 |
0 |
unless my $handles = delete $self->[6] |
|
414
|
0 |
0 |
unless CORE::close $handles->[1] |
|
447
|
0 |
0 |
unless $self->EXISTS($row) |
|
497
|
0 |
0 |
if $str =~ /[\r\n]/ |
|
502
|
0 |
0 |
if --vec($delim, 0, 8) == 31 |
|
518
|
0 |
0 |
if ($str =~ /`/) { } |