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   24040 use strict;
  13         190  
  13         948  
4 13     13   176 use warnings;
  13         99  
  13         1216  
5              
6 13     13   141 use Module::Load ();
  13         78  
  13         450  
7 13     13   123 use Linux::Perl::Constants ();
  13         119  
  13         2010  
8              
9             sub get_arch_module {
10 33     33 0 499 my $module_name = shift() . '::' . Linux::Perl::Constants::get_architecture_name();
11 33         503 Module::Load::load($module_name);
12              
13 33         2662 return $module_name;
14             }
15              
16             1;