Branch Coverage

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


line true false branch
16 0 9 if $] < "5.006"
37 17 17 if (defined $_[0]) { }
44 0 17 if (@_ >= 4) { }
8 9 elsif (@_ == 3) { }
9 0 elsif (@_ == 2) { }
50 1 7 if ($mode eq '-|') { }
1 6 elsif ($mode eq '|-') { }
52 1 0 if ($return or defined wantarray) { }
61 1 0 if ($return or defined wantarray) { }
77 0 6 unless (exists $flags{$mode})
81 6 0 if ($return or defined wantarray) { }
91 9 0 if ($return or defined wantarray) { }
107 1 1 if (defined $_[0]) { }
115 1 0 if ($return = CORE::opendir($handle, $_[1])) { }
0 0 elsif ($^O =~ /MSWin32/ and -d "$_[1].") { }
121 1 0 if ($return or defined wantarray) { }
133 1 1 if (defined $_[0]) { }
140 0 1 if (@_ >= 5) { }
0 1 elsif (@_ == 4) { }
1 0 elsif (@_ == 3) { }
145 0 0 if ($return or defined wantarray) { }
154 1 0 if ($return or defined wantarray) { }
170 1 1 if (defined $_[0]) { }
177 0 1 if (defined $_[1]) { }
185 1 0 if ($return or defined wantarray) { }
197 2 1 if (defined $_[0]) { }
212 0 0 if (defined $_[0]) { }
219 0 0 if (defined $_[1])
224 0 0 if ($return or defined wantarray) { }