File Coverage

blib/lib/Linux/Perl/ArchLoader.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 20 21 95.2


line stmt bran cond sub pod time code
1             package Linux::Perl::ArchLoader;
2              
3 13     13   38457 use strict;
  13         116  
  13         886  
4 13     13   153 use warnings;
  13         71  
  13         1306  
5              
6 13     13   113 use Module::Load ();
  13         71  
  13         305  
7 13     13   113 use Linux::Perl::Constants ();
  13         136  
  13         1288  
8              
9             sub get_arch_module {
10 33     33 0 429 my $module_name = shift() . '::' . Linux::Perl::Constants::get_architecture_name();
11 33         356 Module::Load::load($module_name);
12              
13 33         2049 return $module_name;
14             }
15              
16             1;