| 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) |