| Bio/Root/RootI.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 33 | 58 | 56.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 223 | 1 | 29 | 0 | $class_version and $class_version =~ /set by/ |
| 246 | 13 | 1 | 16 | $throw_version and $class_version |
| 14 | 9 | 7 | $throw_version and $class_version and $class_version >= $throw_version | |
| 0 | 1 | 22 | $warn_version and $class_version | |
| 1 | 10 | 12 | $warn_version and $class_version and $class_version >= $warn_version | |
| 396 | 77395 | 14165 | 385121 | $args[0] and $args[0] =~ /^\-/ |
| 537 | 5 | 0 | 0 | ref $code and ref $code eq 'HASH' |
| 598 | 0 | 0 | 0 | defined $param[0] and $param[0] =~ /^-/o |
| 0 | 0 | 0 | defined $param[0] and $param[0] =~ /^-/o and $#param % 2 |
| line | l | !l | condition |
|---|---|---|---|
| 551 | 12 | 0 | $self->can($method) || (next) |
| 565 | 13 | 2 | $self->can($method) or next |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 217 | 21 | 9 | 0 | ref $self || $self |
| 230 | 6 | 11 | 13 | $throw_version ||= $version |
| 231 | 8 | 22 | 0 | $warn_version ||= $class_version |
| 238 | 13 | 47 | 0 | not defined $v or $v + 0 == $v |
| 244 | 30 | 0 | 0 | $msg ||= 'Use of ' . (&CORE::GLOBAL::caller(1))[3] . '() is deprecated.' |
| 536 | 0 | 5 | 0 | $code || $default_code |
| 538 | 0 | 0 | 0 | $code->{$method} || $default_code |
| 564 | 10 | 0 | 8 | $method_names{$case ? $method : lc $method} || ($methods ? next : $method) |
| 687 | 0 | 0 | 0 | $ENV{'BIOPERLDEBUG'} or $self->verbose > 0 |