Branch Coverage

blib/lib/File/Open.pm
Criterion Covered Total %
branch 70 84 83.3


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', @_)