File Coverage

lib/App/Perlbrew/Sys.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 4 0.0
total 20 24 83.3


line stmt bran cond sub pod time code
1             package App::Perlbrew::Sys;
2 69     69   469 use strict;
  69         139  
  69         2552  
3 69     69   343 use warnings;
  69         163  
  69         3598  
4 69     69   477 use Config;
  69         133  
  69         11605  
5              
6             sub osname {
7             $Config{osname}
8 1     1 0 7 }
9              
10             sub archname {
11             $Config{archname}
12 1     1 0 7 }
13              
14             sub os {
15             $Config{osname}
16 1     1 0 14 }
17              
18             sub arch {
19 1     1 0 85 (split(/-/, $Config{myarchname}, 2))[0]
20             }
21              
22             1;