| line |
true |
false |
branch |
|
12
|
0 |
2 |
$opt eq ':lax' ? : |
|
14
|
1 |
1 |
unless (exists $^H{'clobber'}) |
|
22
|
1 |
1 |
if ($opt eq ':lax') { } |
|
37
|
0 |
11 |
$$scope{'clobber-lax'} ? : |
|
40
|
1 |
10 |
if (scalar @_ == 1) |
|
44
|
7 |
4 |
if (scalar @_ == 2) { } |
|
|
4 |
0 |
elsif (scalar @_ > 2) { } |
|
48
|
7 |
0 |
if ($mode =~ /^\s*
(
\| | #pipe-out
(?:\>{1,2}|<)&=?| #dup & fdopen
\+?>{1,2}| #write, append, write-read, append-read
\+?< #read, read-write
)?
\s*
(.+?) #the beef
\s*
(\|)? #pipe-in
\s*
$/x) { } |
|
63
|
2 |
5 |
if $[ < 5.008 and $mode =~ /^\s*(?:\>{1,2}|<)&=?/ |
|
70
|
0 |
5 |
$testmode eq '|' ? : |
|
71
|
1 |
4 |
unless (length $testmode) |
|
72
|
0 |
0 |
$file eq '-' ? : |
|
|
1 |
0 |
$pipein ? : |
|
80
|
7 |
2 |
if -e $file and $testmode =~ /$stricture/ |
|
92
|
0 |
5 |
$$scope{'clobber-lax'} ? : |
|
95
|
4 |
1 |
if -e $file and $mode & $stricture |
|
104
|
1 |
0 |
if -e $_[1] |
|
112
|
0 |
12 |
if $_[1]{'clobber'} |
|
114
|
0 |
12 |
if (-t STDIN and exists $INC{'Term/ReadKey.pm'}) |
|
126
|
12 |
0 |
unless $clobber |