| line |
true |
false |
branch |
|
103
|
332 |
18 |
if has_method($self, "__parse_time_reset") |
|
107
|
1 |
1180 |
if (has_method($_, 'dereference')) { } |
|
112
|
6 |
344 |
if ("HASH" eq ref $args[0]) |
|
121
|
6 |
36 |
if ('CODE' eq ref $lgl->[$inx]) { } |
|
122
|
0 |
6 |
unless defined $name |
|
124
|
2 |
4 |
if (exists $opt->{$name}) |
|
133
|
0 |
9 |
unless $opt_name{$key} |
|
167
|
0 |
344 |
unless ($go->getoptionsfromarray(\@args, \%opt, "default=s", @$lgl)) |
|
181
|
0 |
350 |
unless "CODE" eq ref $code |
|
185
|
24 |
326 |
if (@{$lgl;} and ":compute" eq $lgl->[0]) |
|
186
|
0 |
24 |
unless my $method = $lgl->[1] |
|
197
|
348 |
2 |
unless my $dflt = delete $opt->{'default'} |
|
199
|
0 |
2 |
if ('ARRAY' eq ref $dflt) { } |
|
|
0 |
2 |
elsif (ref $dflt) { } |
|
|
2 |
0 |
elsif (my $code = $self->can('__tokenize')) { } |
|
211
|
6 |
8 |
unless defined $args->[$inx] and "" ne $args->[$inx] |
|
221
|
0 |
0 |
if (@arg) { } |
|
241
|
0 |
0 |
if wantarray |
|
249
|
0 |
0 |
unless defined(my $back_end = $self->{'_back_end'}{'class'}) |
|
250
|
0 |
0 |
if $back_end eq $self->__back_end_default |
|
253
|
0 |
0 |
unless @{$self->{'_back_end'}{'arg'};} |
|
271
|
10 |
0 |
unless load_package("Date::Manip") |
|
273
|
0 |
0 |
if "Date::Manip"->isa("Date::Manip::DM6") |
|
300
|
0 |
11 |
unless $method_to_sub{$method} |
|
302
|
5 |
6 |
if (builtin::blessed($obj) and $obj->can($method)) { } |
|
307
|
6 |
0 |
if (my $code = 'Carp'->can($method_to_sub{$method})) { } |
|
319
|
30 |
9 |
@args > 1 ? : |
|
320
|
39 |
0 |
if defined $fn |
|
341
|
0 |
21 |
unless defined $user |
|
344
|
17 |
4 |
if (my $code = $special{$user}) { } |
|
345
|
8 |
9 |
unless defined(my $special_dir = &$code($user)) |
|
349
|
2 |
2 |
unless defined(my $home_dir = "File::HomeDir"->users_home($user)) |
|
360
|
0 |
0 |
unless defined $dir and not ref $dir and -d $dir and -x _ |
|
367
|
0 |
0 |
unless -r $path |
|
385
|
1714 |
995 |
unless ref $object |
|
386
|
25 |
970 |
unless builtin::blessed($object) |
|
392
|
27 |
1475 |
unless ref $object |
|
393
|
494 |
981 |
unless builtin::blessed($object) |
|
399
|
0 |
226 |
if (defined $my_lib) |
|
401
|
0 |
0 |
unless -d $my_lib |
|
429
|
0 |
0 |
unless exists $version{$module} |
|
440
|
50 |
197 |
if builtin::blessed($prefix[0]) |
|
442
|
70 |
177 |
'HASH' eq ref $prefix[0] ? : |
|
447
|
21 |
226 |
exists $opt->{'lib'} ? : |
|
448
|
1 |
246 |
if (defined $use_lib) |
|
454
|
0 |
311 |
if "" eq $_ |
|
456
|
311 |
0 |
if / \A [[:alpha:]]\w* (?: :: [[:alpha:]]\w* )* \z /msx |
|
466
|
113 |
134 |
if exists $loaded{$key} |
|
473
|
0 |
180 |
if "" eq $package |
|
476
|
99 |
81 |
unless eval {
do {
require "$fn.pm";
1
}
} |
|
482
|
0 |
81 |
if $version{$package} |
|
487
|
1 |
52 |
if ($opt->{'fatal'}) |
|
503
|
0 |
0 |
if @args == 1 |
|
518
|
3 |
236 |
if defined $ENV{'ASTRO_APP_SATPASS2_CONFIG_DIR'} |
|
535
|
0 |
0 |
unless my $rslt = "File::HomeDir"->my_dist_data("Astro-App-Satpass2") |
|
544
|
0 |
43 |
unless (defined $cls and $cls =~ / \A [_[:alpha:]] \w* (?: :: \w+ )* \z /msx) |
|
546
|
0 |
0 |
defined $cls ? : |
|
547
|
0 |
0 |
$self->can('wail') ? : |
|
551
|
0 |
4 |
unless / = /msx |
|
560
|
25 |
25 |
wantarray ? : |
|
565
|
0 |
100 |
unless defined $string |
|
566
|
16 |
84 |
if &looks_like_number($string) |
|
567
|
0 |
84 |
unless $string |
|
568
|
68 |
16 |
unless $string =~ / [\s'"\$] /msx |