Branch Coverage

Bio/CodonUsage/IO.pm
Criterion Covered Total %
branch 19 22 86.3


line true false branch
138 0 1 unless ($cut and $cut->isa('Bio::CodonUsage::Table'))
186 65 216 if $line =~ /^$/
190 3 213 if ($line =~ /^(.+?)\s*\[(\w+)\].+?(\d+)/) { }
192 21 elsif ($line =~ /^(\w\w\w)\s+(\w+)\s+(\d+\.\d+) \s+(\d+\.\d+)\s+(\d+\.\d+)/x) { }
199 192 0 if (defined $1)
209 3 213 if ($line =~ /^Cod.+?(\d\d\.\d\d)/) { }
3 210 elsif ($line =~ /^1st.+?(\d\d\.\d\d)/) { }
3 207 elsif ($line =~ /^2nd.+?(\d\d\.\d\d)/) { }
3 204 elsif ($line =~ /^3rd.+?(\d\d\.\d\d)/) { }
3 201 elsif ($line =~ /^Gen.+?(\d+)/) { }
227 0 3 if (scalar keys %{$$cdtableobj{'_table'};} != 21)