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 6     6   7376 use strict;
  6         30  
  6         260  
4 6     6   46 use warnings;
  6         42  
  6         376  
5              
6 6     6   40 use Module::Load ();
  6         35  
  6         155  
7 6     6   52 use Linux::Perl::Constants ();
  6         31  
  6         462  
8              
9             sub get_arch_module {
10 12     12 0 166 my $module_name = shift() . '::' . Linux::Perl::Constants::get_architecture_name();
11 12         129 Module::Load::load($module_name);
12              
13 12         530 return $module_name;
14             }
15              
16             1;