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   1934263 use strict;
  19         209  
  19         606  
4 19     19   99 use warnings;
  19         28  
  19         2508  
5              
6             our $ARCHITECTURE;
7              
8             sub get_architecture_name {
9 52   66 52 0 2297 return $ARCHITECTURE ||= do {
10 19         129 require Config;
11 19         539 Config->import();
12              
13 19         356 my $name = $Config::Config{'archname'};
14 19         110 my $dash_at = index($name, '-');
15 19 50       86 if ($dash_at != -1) {
16 19         82 substr($name, $dash_at) = q<>;
17             }
18              
19 19         122 $name;
20             };
21             }
22              
23             1;