File Coverage

blib/lib/EO/System/Perl.pm
Criterion Covered Total %
statement 10 12 83.3
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 14 16 87.5


line stmt bran cond sub pod time code
1             package EO::System::Perl;
2              
3 1     1   33259 use strict;
  1         2  
  1         39  
4 1     1   6 use warnings;
  1         1  
  1         29  
5              
6 1     1   4 use Config;
  1         3  
  1         37  
7 1     1   526 use EO::Array;
  0            
  0            
8             use EO::Singleton;
9             use base qw( EO::Singleton );
10              
11             our $VERSION = 0.96;
12              
13             sub can_thread {
14             !!$Config{usethreads};
15             }
16              
17             sub version {
18             return $];
19             }
20              
21             sub binary {
22             return $^X;
23             }
24              
25             sub include_path {
26             return EO::Array->new_with_array( @INC );
27             }
28              
29             sub architecture {
30             return $Config{archname};
31             }
32              
33             1;