| blib/lib/Astro/App/Satpass2/ParseTime/Code.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 20 | 25.0 |
| line | true | false | branch |
|---|---|---|---|
| 29 | 0 | 0 | if ref $code |
| 36 | 1 | 0 | if (@args) |
| 38 | 1 | 0 | if (my $ref = ref $val) { } |
| 0 | 0 | elsif ($val =~ / ( .* ) :: ( .* ) /msx) { } | |
| 0 | 0 | elsif (my $code = (caller)->can($val)) { } | |
| 39 | 1 | 0 | if ("CODE" eq $ref) |
| 40 | 1 | 0 | unless defined $name |
| 45 | 0 | 0 | if (my $code = $1->can($2)) |
| 69 | 0 | 0 | if @args |
| 88 | 0 | 18 | unless my $code = $self->_attr->{'_code'} |