| blib/lib/Linux/Perl/Constants.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 2 | 3 | 66.6 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 9 | 33 | 19 | 0 | $ARCHITECTURE ||= do { require Config; 'Config'->import; my $name = $Config::Config{'archname'}; my $dash_at = index($name, '-'); if ($dash_at != -1) { substr($name, $dash_at) = ''; } ; $name } |