| line |
l |
!l |
condition |
|
363
|
0 |
0 |
$$type{'t_present'} ||= sub {
my($value) = @_;
my $txt = _is_exception $value ? $value x $pew : $$type{'present'}($value);
$txt .= ' ' x ($pfw - length($txt)) if $pfw > length $txt;
return $txt;
}
|
|
384
|
0 |
0 |
$$type{'t_cmp'} ||= sub {
my($x, $y) = @_;
if (_is_exception $x) {
if (_is_exception $y) {
return _cmp_exception($x, $y);
}
else {
return -1;
} ;
}
else {
if (_is_exception $y) {
return 1;
}
else {
return &$cmp_normal($x, $y);
} ;
} ;
}
|
|
578
|
8 |
13 |
$$ac{'check_value'} || sub {
}
|
|
741
|
1 |
0 |
$command{$cmd} || sub {
die "unrecognised subcommand\n";
}
|