| line |
true |
false |
branch |
|
127
|
0 |
0 |
unless ref $prefs eq 'HASH' |
|
132
|
0 |
0 |
if $prefs->{'utf8'} |
|
133
|
0 |
0 |
unless open my $fh, "<$mode", $path |
|
163
|
0 |
0 |
if not defined $contents or ref $contents |
|
164
|
0 |
0 |
unless ref $prefs eq 'HASH' |
|
169
|
0 |
0 |
if $prefs->{'utf8'} |
|
170
|
0 |
0 |
unless open my $fh, ">$mode", $path |
|
192
|
0 |
0 |
unless defined $s |
|
194
|
0 |
0 |
if $nonquoted |
|
218
|
0 |
0 |
unless defined($pid = fork) |
|
219
|
0 |
0 |
unless ($pid) |
|
225
|
0 |
0 |
unless waitpid($pid, 0) > 0 |
|
247
|
0 |
0 |
unless defined $prompt |
|
249
|
0 |
0 |
unless (-t $in) |
|
252
|
0 |
0 |
if defined $line |
|
258
|
0 |
0 |
!$? ? : |
|
309
|
0 |
0 |
if @_ >= 1 and ref $_[0] eq 'HASH' |
|
322
|
0 |
0 |
unless defined $argv and not ref $argv |
|
324
|
0 |
0 |
if (not !defined($prefs->{'optionAtAll'}) || $prefs->{'optionAtAll'} and @parameters) |
|
330
|
0 |
0 |
if ($late) |
|
336
|
0 |
0 |
if (substr($argv, 0, 2) eq '--') |
|
339
|
0 |
0 |
if (length $argv == 2) |
|
346
|
0 |
0 |
unless (defined $result{$arg[0]}) |
|
354
|
0 |
0 |
if (substr($argv, 0, 1) eq '-' and length $argv != 1) |
|
359
|
0 |
0 |
unless (defined $result{$arg[0]}) |
|
367
|
0 |
0 |
if ($prefs->{'valuableArgs'} and $opt) |
|
378
|
0 |
0 |
unless $prefs->{'noCommand'} |
|
409
|
0 |
0 |
unless $name |
|
410
|
0 |
0 |
unless $path |
|
450
|
0 |
0 |
unless $caller |
|
456
|
0 |
0 |
if ($c =~ /\W/) |
|
468
|
0 |
0 |
if (my($epoch, $pid) = $tmp_path =~ /^\Q$tmp_base$tmp_prefix\E(\d*)\.(\d*)/) |
|
470
|
0 |
0 |
if ($expiry < 0 or $expiry > 0 and $now - $epoch < $expiry) |
|
472
|
0 |
0 |
unless (defined $result) |
|
476
|
0 |
0 |
if ($tmp) |
|
478
|
0 |
0 |
if ($tmp =~ /^SCALAR\n(.*)/) { } |
|
492
|
0 |
0 |
unless (defined $result) |
|
494
|
0 |
0 |
if ref $coderef eq 'CODE' |
|
495
|
0 |
0 |
if (defined $result) |
|
498
|
0 |
0 |
if (ref $result) { } |
|
503
|
0 |
0 |
if ref $result eq 'ARRAY' or ref $result eq 'HASH' |
|
505
|
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.$$") |
|
540
|
0 |
0 |
unless $file_name |
|
541
|
0 |
0 |
unless -e $file_name |
|
546
|
0 |
0 |
if $@ |
|
548
|
0 |
0 |
if $section |
|
555
|
0 |
0 |
if (defined $section and not defined $result) |
|
557
|
0 |
0 |
if ($line eq $section) |
|
559
|
0 |
0 |
if ($exclude_section) { } |
|
570
|
0 |
0 |
if defined $section and $line =~ /^\S+/ |
|
571
|
0 |
0 |
unless defined $result |
|
575
|
0 |
0 |
if wantarray |
|
597
|
0 |
0 |
unless wantarray |