| 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
|
4 |
34 |
if ('CODE' eq ref $lgl->[$inx]) { } |
|
122
|
0 |
4 |
unless defined $name |
|
124
|
2 |
2 |
if (exists $opt->{$name}) |
|
133
|
0 |
9 |
unless $opt_name{$key} |
|
168
|
0 |
344 |
unless ($go->getoptionsfromarray(\@args, \%opt, "default=s", @$lgl)) |
|
182
|
0 |
350 |
unless "CODE" eq ref $code |
|
186
|
24 |
326 |
if (@{$lgl;} and ":compute" eq $lgl->[0]) |
|
187
|
0 |
24 |
unless my $method = $lgl->[1] |
|
198
|
348 |
2 |
unless my $dflt = delete $opt->{'default'} |
|
200
|
0 |
2 |
if ('ARRAY' eq ref $dflt) { } |
|
|
0 |
2 |
elsif (ref $dflt) { } |
|
|
2 |
0 |
elsif (my $code = $self->can('__tokenize')) { } |
|
212
|
6 |
8 |
unless defined $args->[$inx] and "" ne $args->[$inx] |
|
222
|
0 |
0 |
if (@arg) { } |
|
242
|
0 |
0 |
if wantarray |
|
250
|
0 |
0 |
unless defined(my $back_end = $self->{'_back_end'}{'class'}) |
|
251
|
0 |
0 |
if $back_end eq $self->__back_end_default |
|
254
|
0 |
0 |
unless @{$self->{'_back_end'}{'arg'};} |
|
272
|
10 |
0 |
unless load_package("Date::Manip") |
|
274
|
0 |
0 |
if "Date::Manip"->isa("Date::Manip::DM6") |
|
301
|
0 |
11 |
unless $method_to_sub{$method} |
|
303
|
5 |
6 |
if (builtin::blessed($obj) and $obj->can($method)) { } |
|
308
|
6 |
0 |
if (my $code = 'Carp'->can($method_to_sub{$method})) { } |
|
320
|
30 |
9 |
@args > 1 ? : |
|
321
|
39 |
0 |
if defined $fn |
|
342
|
0 |
21 |
unless defined $user |
|
345
|
17 |
4 |
if (my $code = $special{$user}) { } |
|
346
|
8 |
9 |
unless defined(my $special_dir = &$code($user)) |
|
350
|
2 |
2 |
unless defined(my $home_dir = "File::HomeDir"->users_home($user)) |
|
361
|
0 |
0 |
unless defined $dir and not ref $dir and -d $dir and -x _ |
|
368
|
0 |
0 |
unless -r $path |
|
386
|
1714 |
995 |
unless ref $object |
|
387
|
25 |
970 |
unless builtin::blessed($object) |
|
393
|
27 |
1475 |
unless ref $object |
|
394
|
494 |
981 |
unless builtin::blessed($object) |
|
400
|
0 |
164 |
if (defined $my_lib) |
|
402
|
0 |
0 |
unless -d $my_lib |
|
430
|
0 |
0 |
unless exists $version{$module} |
|
441
|
50 |
135 |
if builtin::blessed($prefix[0]) |
|
443
|
70 |
115 |
'HASH' eq ref $prefix[0] ? : |
|
448
|
21 |
164 |
exists $opt->{'lib'} ? : |
|
449
|
1 |
184 |
if (defined $use_lib) |
|
455
|
0 |
249 |
if "" eq $_ |
|
457
|
249 |
0 |
if / \A [[:alpha:]]\w* (?: :: [[:alpha:]]\w* )* \z /msx |
|
467
|
54 |
131 |
if exists $loaded{$key} |
|
474
|
0 |
177 |
if "" eq $package |
|
477
|
97 |
80 |
unless eval {
do {
require "$fn.pm";
1
}
} |
|
483
|
0 |
80 |
if $version{$package} |
|
488
|
1 |
50 |
if ($opt->{'fatal'}) |
|
504
|
0 |
0 |
if @args == 1 |
|
519
|
3 |
174 |
if defined $ENV{'ASTRO_APP_SATPASS2_CONFIG_DIR'} |
|
536
|
0 |
0 |
unless my $rslt = "File::HomeDir"->my_dist_data("Astro-App-Satpass2") |
|
545
|
0 |
43 |
unless (defined $cls and $cls =~ / \A [_[:alpha:]] \w* (?: :: \w+ )* \z /msx) |
|
547
|
0 |
0 |
defined $cls ? : |
|
548
|
0 |
0 |
$self->can('wail') ? : |
|
552
|
0 |
4 |
unless / = /msx |
|
561
|
25 |
25 |
wantarray ? : |
|
566
|
0 |
100 |
unless defined $string |
|
567
|
16 |
84 |
if &looks_like_number($string) |
|
568
|
0 |
84 |
unless $string |
|
569
|
68 |
16 |
unless $string =~ / [\s'"\$] /msx |