| line |
true |
false |
branch |
|
125
|
0 |
0 |
unless ref $prefs eq 'HASH' |
|
130
|
0 |
0 |
if $prefs->{'utf8'} |
|
131
|
0 |
0 |
unless open my $fh, "<$mode", $path |
|
161
|
0 |
0 |
if not defined $contents or ref $contents |
|
162
|
0 |
0 |
unless ref $prefs eq 'HASH' |
|
167
|
0 |
0 |
if $prefs->{'utf8'} |
|
168
|
0 |
0 |
unless open my $fh, ">$mode", $path |
|
190
|
0 |
0 |
unless defined $s |
|
192
|
0 |
0 |
if $nonquoted |
|
216
|
0 |
0 |
unless defined($pid = fork) |
|
217
|
0 |
0 |
unless ($pid) |
|
223
|
0 |
0 |
unless waitpid($pid, 0) > 0 |
|
245
|
0 |
0 |
unless defined $prompt |
|
247
|
0 |
0 |
unless (-t $in) |
|
250
|
0 |
0 |
if defined $line |
|
256
|
0 |
0 |
!$? ? : |
|
307
|
0 |
0 |
if @_ >= 1 and ref $_[0] eq 'HASH' |
|
320
|
0 |
0 |
unless defined $argv and not ref $argv |
|
322
|
0 |
0 |
if (not !defined($prefs->{'optionAtAll'}) || $prefs->{'optionAtAll'} and @parameters) |
|
328
|
0 |
0 |
if ($late) |
|
334
|
0 |
0 |
if (substr($argv, 0, 2) eq '--') |
|
337
|
0 |
0 |
if (length $argv == 2) |
|
344
|
0 |
0 |
unless (defined $result{$arg[0]}) |
|
352
|
0 |
0 |
if (substr($argv, 0, 1) eq '-' and length $argv != 1) |
|
357
|
0 |
0 |
unless (defined $result{$arg[0]}) |
|
365
|
0 |
0 |
if ($prefs->{'valuableArgs'} and $opt) |
|
376
|
0 |
0 |
unless $prefs->{'noCommand'} |
|
407
|
0 |
0 |
unless $name |
|
408
|
0 |
0 |
unless $path |
|
448
|
0 |
0 |
unless $caller |
|
454
|
0 |
0 |
if ($c =~ /\W/) |
|
466
|
0 |
0 |
if (my($epoch, $pid) = $tmp_path =~ /^\Q$tmp_base$tmp_prefix\E(\d*)\.(\d*)/) |
|
468
|
0 |
0 |
if ($expiry < 0 or $expiry > 0 and $now - $epoch < $expiry) |
|
470
|
0 |
0 |
unless (defined $result) |
|
474
|
0 |
0 |
if ($tmp) |
|
476
|
0 |
0 |
if ($tmp =~ /^SCALAR\n(.*)/) { } |
|
490
|
0 |
0 |
unless (defined $result) |
|
492
|
0 |
0 |
if ref $coderef eq 'CODE' |
|
493
|
0 |
0 |
if (defined $result) |
|
496
|
0 |
0 |
if (ref $result) { } |
|
501
|
0 |
0 |
if ref $result eq 'ARRAY' or ref $result eq 'HASH' |
|
503
|
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.$$") |
|
538
|
0 |
0 |
unless $file_name |
|
539
|
0 |
0 |
unless -e $file_name |
|
544
|
0 |
0 |
if $@ |
|
546
|
0 |
0 |
if $section |
|
553
|
0 |
0 |
if (defined $section and not defined $result) |
|
555
|
0 |
0 |
if ($line eq $section) |
|
557
|
0 |
0 |
if ($exclude_section) { } |
|
568
|
0 |
0 |
if defined $section and $line =~ /^\S+/ |
|
569
|
0 |
0 |
unless defined $result |
|
573
|
0 |
0 |
if wantarray |
|
595
|
0 |
0 |
unless wantarray |