blib/lib/Linux/Perl/SigSet.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 2 | 5 | 40.0 |
line | l | !l | condition |
---|---|---|---|
27 | 2 | 0 | $sig_num_hr->{$sig} || die("Unrecognized signal: '${sig}'") |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
18 | 0 | 2 | 0 | $sig_num_hr ||= do { require Config; my @names = split(/ /, $Config::Config{'sig_name'}, 0); my %signum; @signum{@names} = split(/ /, $Config::Config{'sig_num'}, 0); \%signum } |