| blib/lib/Astro/App/Satpass2/Utils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 14 | 35 | 40.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 186 | 187 | 139 | 24 | @{$lgl;} and ":compute" eq $lgl->[0] |
| 212 | 6 | 0 | 8 | defined $args->[$inx] and "" ne $args->[$inx] |
| 303 | 6 | 0 | 5 | builtin::blessed($obj) and $obj->can($method) |
| 361 | 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 _ | |
| 545 | 0 | 0 | 43 | defined $cls and $cls =~ / \A [_[:alpha:]] \w* (?: :: \w+ )* \z /msx |
| line | l | !l | condition |
|---|---|---|---|
| 82 | 0 | 22 | eval { do { require DateTime; require DateTime::TimeZone; 1 } } || 0 |
| 92 | 0 | 22 | {'dos', 1, 'MSWin32', 1}->{$^O} || 0 |
| 165 | 0 | 344 | $self->__get_attr($code, 'Configure') || \@default_config |
| 181 | 350 | 0 | $code ||= \&{(caller 1)[3];} |
| 184 | 350 | 0 | $opt ||= {} |
| 460 | 0 | 0 | $opt->{'complaint'} || 'weep' |
| 521 | 0 | 174 | __PACKAGE__->can("_my_dist_config_$^O") || \&Astro::App::Satpass2::Utils::_my_dist_config_ |