| line |
true |
false |
branch |
|
124
|
0 |
0 |
unless ref $prefs eq 'HASH' |
|
129
|
0 |
0 |
if $prefs->{'utf8'} |
|
130
|
0 |
0 |
unless open my $fh, "<$mode", $path |
|
160
|
0 |
0 |
if not defined $contents or ref $contents |
|
161
|
0 |
0 |
unless ref $prefs eq 'HASH' |
|
166
|
0 |
0 |
if $prefs->{'utf8'} |
|
167
|
0 |
0 |
unless open my $fh, ">$mode", $path |
|
189
|
0 |
0 |
unless defined $s |
|
191
|
0 |
0 |
if $nonquoted |
|
217
|
0 |
0 |
unless (defined($pid = fork)) |
|
221
|
0 |
0 |
unless ($pid) |
|
227
|
0 |
0 |
if (waitpid($pid, 0) <= 0) |
|
232
|
0 |
0 |
if $@ |
|
254
|
0 |
0 |
unless defined $prompt |
|
256
|
0 |
0 |
unless (-t $in) |
|
259
|
0 |
0 |
if defined $line |
|
265
|
0 |
0 |
!$? ? : |
|
316
|
0 |
0 |
if @_ >= 1 and ref $_[0] eq 'HASH' |
|
329
|
0 |
0 |
unless defined $argv and not ref $argv |
|
331
|
0 |
0 |
if (not !defined($prefs->{'optionAtAll'}) || $prefs->{'optionAtAll'} and @parameters) |
|
337
|
0 |
0 |
if ($late) |
|
343
|
0 |
0 |
if (substr($argv, 0, 2) eq '--') |
|
346
|
0 |
0 |
if (length $argv == 2) |
|
353
|
0 |
0 |
unless (defined $result{$arg[0]}) |
|
361
|
0 |
0 |
if (substr($argv, 0, 1) eq '-' and length $argv != 1) |
|
366
|
0 |
0 |
unless (defined $result{$arg[0]}) |
|
374
|
0 |
0 |
if ($prefs->{'valuableArgs'} and $opt) |
|
385
|
0 |
0 |
unless $prefs->{'noCommand'} |
|
416
|
0 |
0 |
unless $name |
|
417
|
0 |
0 |
unless $path |
|
457
|
0 |
0 |
unless $caller |
|
463
|
0 |
0 |
if ($c =~ /\W/) |
|
475
|
0 |
0 |
if (my($epoch, $pid) = $tmp_path =~ /^\Q$tmp_base$tmp_prefix\E(\d*)\.(\d*)/) |
|
477
|
0 |
0 |
if ($expiry < 0 or $expiry > 0 and $now - $epoch < $expiry) |
|
479
|
0 |
0 |
unless (defined $result) |
|
483
|
0 |
0 |
if ($tmp) |
|
485
|
0 |
0 |
if ($tmp =~ /^SCALAR\n(.*)/) { } |
|
499
|
0 |
0 |
unless (defined $result) |
|
501
|
0 |
0 |
if ref $coderef eq 'CODE' |
|
502
|
0 |
0 |
if (defined $result) |
|
505
|
0 |
0 |
if (ref $result) { } |
|
510
|
0 |
0 |
if ref $result eq 'ARRAY' or ref $result eq 'HASH' |
|
512
|
0 |
0 |
if ($tmp and file_put_contents("${tmp_base}tmp.$tmp_prefix$now.$$", $tmp) and rename "${tmp_base}tmp.$tmp_prefix$now.$$", "$tmp_base$tmp_prefix$now.$$") |
|
547
|
0 |
0 |
unless $file_name |
|
548
|
0 |
0 |
unless -e $file_name |
|
553
|
0 |
0 |
if $@ |
|
555
|
0 |
0 |
if $section |
|
562
|
0 |
0 |
if (defined $section and not defined $result) |
|
564
|
0 |
0 |
if ($line eq $section) |
|
566
|
0 |
0 |
if ($exclude_section) { } |
|
577
|
0 |
0 |
if defined $section and $line =~ /^\S+/ |
|
578
|
0 |
0 |
unless defined $result |
|
582
|
0 |
0 |
if wantarray |