| blib/lib/Bio/PhyloRole.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 16 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 82 | 2558 | 83 | $no_internal ? : |
| 83 | 2641 | 0 | if ($name) |
| 84 | 0 | 2641 | if ($name =~ /\s/ and not $name =~ /^'.+'$/) |
| 87 | 49 | 2592 | if ($name =~ m<(?:\-|\^|\*|\(|\)|{|}|\[|\]|\+|=|;|:|"|\\|<|>|/|,)> and not $name =~ /^'.+'$/) |
| 92 | 0 | 58 | if ($name =~ /'/ and not $name =~ /^".+"$/ and not $name =~ /^'.+'$/) |
| 115 | 1341 | 139 | if (my $name = $self->get_name) { } |
| 149 | 534 | 10 | if ($self->can($var)) { } |
| 213 | 12 | 0 | if (@_) |