| blib/lib/Astro/App/Satpass2/Utils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 13 | 33 | 39.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 179 | 187 | 139 | 24 | @{$lgl;} and ":compute" eq $lgl->[0] |
| 205 | 6 | 0 | 8 | defined $args->[$inx] and "" ne $args->[$inx] |
| 296 | 5 | 0 | 5 | &blessed($obj) and $obj->can($method) |
| 354 | 0 | 0 | 0 | defined $dir and not ref $dir |
| 0 | 0 | 0 | defined $dir and not ref $dir and -d $dir | |
| 0 | 0 | 0 | defined $dir and not ref $dir and -d $dir and -x _ | |
| 538 | 0 | 0 | 43 | defined $cls and $cls =~ / \A [_[:alpha:]] \w* (?: :: \w+ )* \z /msx |
| line | l | !l | condition |
|---|---|---|---|
| 79 | 0 | 22 | eval { do { require DateTime; require DateTime::TimeZone; 1 } } || 0 |
| 158 | 0 | 344 | $self->__get_attr($code, 'Configure') || \@default_config |
| 174 | 350 | 0 | $code ||= \&{(caller 1)[3];} |
| 177 | 350 | 0 | $opt ||= {} |
| 453 | 0 | 0 | $opt->{'complaint'} || 'weep' |
| 514 | 0 | 136 | 'Astro::App::Satpass2::Utils'->can("_my_dist_config_$^O") || \&Astro::App::Satpass2::Utils::_my_dist_config_ |