| blib/lib/Bio/Phylo/Parsers/Figtree.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 20 | 80.0 |
| line | true | false | branch |
|---|---|---|---|
| 52 | 2 | 51 | if /BEGIN TREES;/i |
| 53 | 2 | 51 | if (/^\s*TREE (\S+) = \[&([RU])\] (.+)$/i) |
| 61 | 1 | 1 | if $rooted eq 'U' |
| 70 | 18 | 8 | if ($tree_block and not $tree_string and /\s+(\d+)\s+(.+)/) |
| 87 | 52 | 104 | if ($name =~ /\[/ and $name =~ /^([^\[]*?)\[(.+?)\]$/) |
| 93 | 52 | 0 | if ($comments =~ /^&(.+)/) { } |
| 101 | 463 | 0 | if ($comments =~ /^(.+?)=/) |
| 109 | 206 | 257 | if ($comments =~ /^{([^}]+)}/) { } |
| 257 | 0 | elsif ($comments =~ /^([^,]+)/) { } | |
| 132 | 0 | 463 | if ($old_length == length $comments) |