| 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 } |