Branch Coverage

lib/Modern/Open.pm
Criterion Covered Total %
branch 34 58 58.6


line true false branch
14 0 10 if ($] < "5.006" and not defined &warnings::import)
21 9 1 if $INC[-1] eq "."
41 17 17 if (defined $_[0]) { }
52 0 17 if (@_ >= 4) { }
8 9 elsif (@_ == 3) { }
9 0 elsif (@_ == 2) { }
58 1 7 if ($mode eq '-|') { }
1 6 elsif ($mode eq '|-') { }
61 1 0 if ($return or defined wantarray) { }
71 1 0 if ($return or defined wantarray) { }
87 0 6 unless (exists $flags{$mode})
92 6 0 if ($return or defined wantarray) { }
103 9 0 if ($return or defined wantarray) { }
119 1 1 if (defined $_[0]) { }
132 1 0 if ($return = CORE::opendir(do { $handle }, $_[1])) { }
0 0 elsif ($^O =~ /MSWin32/ and -d "$_[1].") { }
139 1 0 if ($return or defined wantarray) { }
151 1 1 if (defined $_[0]) { }
162 0 1 if (@_ >= 5) { }
0 1 elsif (@_ == 4) { }
1 0 elsif (@_ == 3) { }
168 0 0 if ($return or defined wantarray) { }
178 1 0 if ($return or defined wantarray) { }
194 1 1 if (defined $_[0]) { }
205 0 1 if (defined $_[1]) { }
217 1 0 if ($return or defined wantarray) { }
229 2 1 if (defined $_[0]) { }
249 0 0 if (defined $_[0]) { }
262 0 0 if ($return or defined wantarray) { }