Branch Coverage

blib/lib/FileHandle/Fmode.pm
Criterion Covered Total %
branch 49 66 74.2


line true false branch
26 2 78 if ($@)
27 76 2 if (defined $fileno)
28 20 56 if ($fileno == -1)
29 0 20 if ($] < 5.007)
39 4 80 unless (defined $fileno)
40 24 56 if ($fileno == -1)
41 0 24 if ($] < 5.007)
42 4 20 if (perliol_readable($_[0]) and not perliol_writable($_[0]))
45 0 56 if ($is_win32)
46 0 0 if (win32_fmode($_[0]) & 1)
50 16 40 if (defined $fmode and ($fmode & 3) == 0)
56 4 80 unless (defined $fileno)
57 24 56 if ($fileno == -1)
58 0 24 if ($] < 5.007)
59 8 16 if (not perliol_readable($_[0]) and perliol_writable($_[0]))
62 0 56 if ($is_win32)
63 0 0 if (win32_fmode($_[0]) & 2)
67 16 40 if (defined $fmode and ($fmode & 3) == 1)
72 30 10 if (is_WO($_[0]) or is_RW($_[0]))
77 28 12 if (is_RO($_[0]) or is_RW($_[0]))
83 2 98 unless (defined $fileno)
84 30 68 if ($fileno == -1)
85 0 30 if ($] < 5.007)
86 18 12 if (perliol_readable($_[0]) and perliol_writable($_[0]))
89 0 68 if ($is_win32)
90 0 0 if (win32_fmode($_[0]) & 128)
94 36 32 if (defined $fmode and ($fmode & 3) == 2)
100 2 40 unless (defined $fileno)
101 12 28 if ($fileno == -1)
102 0 12 if ($] < 5.007)
105 0 28 if ($is_win32)
106 0 0 if ($] < 5.006001)
110 8 20 if ($fmode & 1024)