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'} |
40
|
0 |
7 |
unless ($tfh and $filename) |
45
|
1 |
6 |
if (exists $params->{'binmode_layer'} and defined $params->{'binmode_layer'}) { } |
|
0 |
6 |
elsif ($params->{'BINMODE'}) { } |
54
|
7 |
0 |
if (defined $message) |
56
|
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')) { } |
71
|
0 |
7 |
if $^O =~ /Win32/ |
72
|
7 |
0 |
unless ($params->{'NOSYNC'}) |
77
|
7 |
0 |
defined $params->{'DEFAULT_EDITOR'} ? : |
82
|
11 |
10 |
unless length $editor |
85
|
8 |
2 |
if ($status != 0) { } |
86
|
7 |
1 |
$status != -1 ? : |
94
|
5 |
2 |
if ($status != 0) |
102
|
0 |
2 |
unless (open $outfh, '<', $filename) |
107
|
0 |
2 |
wantarray ? : |
113
|
0 |
0 |
unless (open $tty, '<', '/dev/tty') |
120
|
0 |
0 |
unless ($tpgrp == $pgrp) |