| line |
true |
false |
branch |
|
5
|
7 |
0 |
if $] >= 5.008 |
|
36
|
2 |
110 |
if @_ < 2 |
|
37
|
2 |
108 |
if @_ > 4 |
|
38
|
11 |
97 |
unless defined $mode |
|
41
|
28 |
80 |
unless my $emode = $modemap{$mode} |
|
43
|
2 |
78 |
if ($file =~ /\0/) |
|
44
|
2 |
0 |
if exists &Errno::ENOENT |
|
48
|
76 |
2 |
unless (defined $layers) |
|
51
|
25 |
51 |
$emode =~ />/ ? : |
|
55
|
7 |
71 |
defined $layers ? : |
|
|
36 |
42 |
unless open my $fh, $emode . (defined $layers ? " $layers" : ''), $file |
|
56
|
21 |
21 |
if $binary |
|
67
|
19 |
26 |
unless _open('fopen', @_) |
|
72
|
4 |
80 |
if @_ < 3 |
|
73
|
2 |
78 |
if @_ > 4 |
|
75
|
4 |
22 |
$mode eq 'rw' ? : |
|
|
24 |
26 |
$mode eq 'w' ? : |
|
|
28 |
50 |
$mode eq 'r' ? : |
|
81
|
22 |
34 |
unless defined $flags |
|
89
|
16 |
0 |
defined $flags->{$k} ? : |
|
|
8 |
18 |
$k eq 'trunc' ? : |
|
|
0 |
26 |
$k eq 'sync' ? : |
|
|
0 |
26 |
$k eq 'nonblock' ? : |
|
|
0 |
26 |
$k eq 'nofollow' ? : |
|
|
0 |
26 |
$k eq 'noctty' ? : |
|
|
0 |
26 |
$k eq 'noatime' ? : |
|
|
11 |
26 |
$k eq 'excl' ? : |
|
|
0 |
37 |
$k eq 'directory' ? : |
|
|
0 |
37 |
$k eq 'direct' ? : |
|
|
0 |
37 |
$k eq 'async' ? : |
|
|
9 |
37 |
$k eq 'append' ? : |
|
|
16 |
46 |
$k eq 'creat' ? : |
|
110
|
2 |
36 |
if ($file =~ /\0/) |
|
111
|
2 |
0 |
if exists &Errno::ENOENT |
|
115
|
16 |
20 |
unless sysopen my $fh, $file, $emode, $perms |
|
124
|
9 |
10 |
unless _sysopen('fsysopen', @_) |
|
129
|
2 |
6 |
if @_ < 2 |
|
130
|
2 |
4 |
if @_ > 2 |
|
132
|
2 |
2 |
if ($dir =~ /\0/) |
|
133
|
2 |
0 |
if exists &Errno::ENOENT |
|
137
|
0 |
2 |
unless opendir my $dh, $dir |
|
146
|
1 |
2 |
unless _opendir('fopendir', @_) |