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   24602 use strict;
  13         142  
  13         1075  
4 13     13   160 use warnings;
  13         91  
  13         1224  
5              
6 13     13   137 use Module::Load ();
  13         101  
  13         469  
7 13     13   124 use Linux::Perl::Constants ();
  13         117  
  13         1704  
8              
9             sub get_arch_module {
10 33     33 0 541 my $module_name = shift() . '::' . Linux::Perl::Constants::get_architecture_name();
11 33         428 Module::Load::load($module_name);
12              
13 33         2372 return $module_name;
14             }
15              
16             1;