| line |
l |
!l&&r |
!l&&!r |
condition |
|
36
|
0 |
14 |
0 |
ref $class || $class |
|
37
|
9 |
5 |
0 |
$_NEW{$CLASS} //= do {
my(%seen, @new, @build);
my(@possible) = $CLASS;
while (@possible) {
my $c = shift @possible;
no strict 'refs';
push @new, $c . '::_NEW' if exists &{$c . '::_NEW';};
push @build, $c . '::BUILD' if exists &{$c . '::BUILD';};
++$seen{$c};
if (exists &{$c . '::DOES';}) {
push @possible, grep({not $seen{$_}++;} $c->DOES("*"));
} ;
push @possible, grep({not $seen{$_}++;} @{$c . '::ISA';});
} ;
[[reverse(@new)], [reverse(@build)]]
} |
|
89
|
0 |
1 |
0 |
$_[0]{'isa_name'} //= $OptArgs2::Opt::_FIELDS->{'isa_name'}{'default'}->($_[0]) |
|
120
|
0 |
0 |
0 |
$ref->{'isa'} //= &OptArgs2::USAGE_HELP() |
|
128
|
0 |
9 |
0 |
$ref->{'name'} //= lc $name |
|
129
|
0 |
9 |
0 |
$ref->{'alias'} //= lc substr($ref->{'name'}, 0, 1) |
|
130
|
0 |
9 |
0 |
$ref->{'comment'} //= "print a $style message and exit" |
|
145
|
0 |
9 |
0 |
$ref->{'trigger'} //= sub {
my $cmd = shift();
my $val = shift();
if ($val == 1) {
$cmd->throw(&OptArgs2::USAGE_HELP());
}
elsif ($val == 2) {
$cmd->throw(&OptArgs2::USAGE_HELPTREE());
}
else {
$cmd->throw(&OptArgs2::USAGE_USAGE(), "UnexpectedOptArg", qq["--$ref->{'name'}" used too many times]);
} ;
}
|