| line |
true |
false |
branch |
|
30
|
0 |
7 |
unless (exists $params->{'skip_interative'} and $params->{'skip_interative'}) |
|
31
|
0 |
0 |
unless _is_interactive() |
|
34
|
0 |
7 |
if exists $params->{'safe_level'} |
|
37
|
0 |
7 |
unless ($tfh and $filename) |
|
42
|
1 |
6 |
if (exists $params->{'binmode_layer'} and defined $params->{'binmode_layer'}) { } |
|
|
0 |
6 |
elsif ($params->{'BINMODE'}) { } |
|
51
|
7 |
0 |
if (defined $message) |
|
53
|
7 |
0 |
if (not $ref) { } |
|
|
0 |
0 |
elsif ($ref eq 'SCALAR') { } |
|
|
0 |
0 |
elsif ($ref eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($ref eq 'GLOB') { } |
|
|
0 |
0 |
elsif (UNIVERSAL::can($message, 'getlines')) { } |
|
68
|
0 |
7 |
if $^O =~ /Win32/ |
|
69
|
7 |
0 |
unless ($params->{'NOSYNC'}) |
|
74
|
7 |
0 |
defined $params->{'DEFAULT_EDITOR'} ? : |
|
79
|
11 |
10 |
unless length $editor |
|
82
|
8 |
2 |
if ($status != 0) { } |
|
83
|
7 |
1 |
$status != -1 ? : |
|
91
|
5 |
2 |
if ($status != 0) |
|
99
|
0 |
2 |
unless (open $outfh, '<', $filename) |
|
104
|
0 |
2 |
wantarray ? : |
|
110
|
0 |
0 |
unless (open $tty, '<', '/dev/tty') |
|
117
|
0 |
0 |
unless ($tpgrp == $pgrp) |