Branch Coverage

blib/lib/Test2/Plugin/OpenFixPerlIO.pm
Criterion Covered Total %
branch 14 20 70.0


line true false branch
31 0 19 unless $ok
45 13 23 if ($args[0] =~ /^(\+?>{1,2})\&(.*)$/)
53 6 7 if (not $is_fileno and @layers != @keep_layers) { }
55 2 4 if (ref $handle eq 'GLOB') { }
0 4 elsif ($handle =~ /^\d+$/) { }
64 2 2 $handle =~ /^\*(.*)$/ ? :
77 0 36 unless defined $out
79 6 30 if (@keep_layers)
82 6 0 if $binmode
99 0 0 if $WE_CARE and not $^C