File Coverage

blib/lib/Linux/Perl/Constants.pm
Criterion Covered Total %
statement 14 14 100.0
branch 1 2 50.0
condition 2 3 66.6
subroutine 3 3 100.0
pod 0 1 0.0
total 20 23 86.9


line stmt bran cond sub pod time code
1             package Linux::Perl::Constants;
2              
3 19     19   1966656 use strict;
  19         349  
  19         555  
4 19     19   95 use warnings;
  19         35  
  19         2585  
5              
6             our $ARCHITECTURE;
7              
8             sub get_architecture_name {
9 52   66 52 0 2199 return $ARCHITECTURE ||= do {
10 19         120 require Config;
11 19         475 Config->import();
12              
13 19         269 my $name = $Config::Config{'archname'};
14 19         100 my $dash_at = index($name, '-');
15 19 50       79 if ($dash_at != -1) {
16 19         64 substr($name, $dash_at) = q<>;
17             }
18              
19 19         124 $name;
20             };
21             }
22              
23             1;