Branch Coverage

lib/Modern/Open.pm
Criterion Covered Total %
branch 32 58 55.1


line true false branch
16 0 9 if $] < 5.006
36 17 17 if (defined $_[0]) { }
43 0 17 if (@_ >= 4) { }
8 9 elsif (@_ == 3) { }
9 0 elsif (@_ == 2) { }
49 1 7 if ($mode eq '-|') { }
1 6 elsif ($mode eq '|-') { }
51 1 0 if ($return or defined wantarray) { }
60 1 0 if ($return or defined wantarray) { }
76 0 6 unless (exists $flags{$mode})
80 6 0 if ($return or defined wantarray) { }
90 9 0 if ($return or defined wantarray) { }
105 1 1 if (defined $_[0]) { }
113 1 0 if ($return = CORE::opendir($handle, $_[1])) { }
0 0 elsif ($^O =~ /MSWin32/ and -d "$_[1].") { }
119 1 0 if ($return or defined wantarray) { }
130 1 1 if (defined $_[0]) { }
137 0 1 if (@_ >= 5) { }
0 1 elsif (@_ == 4) { }
1 0 elsif (@_ == 3) { }
142 0 0 if ($return or defined wantarray) { }
151 1 0 if ($return or defined wantarray) { }
166 1 1 if (defined $_[0]) { }
173 0 1 if (defined $_[1]) { }
181 1 0 if ($return or defined wantarray) { }
192 2 1 if (defined $_[0]) { }
206 0 0 if (defined $_[0]) { }
213 0 0 if (defined $_[1])
218 0 0 if ($return or defined wantarray) { }