File Coverage

blib/lib/EV/MakeMaker.pm
Criterion Covered Total %
statement 8 11 72.7
branch 1 2 50.0
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 18 66.6


line stmt bran cond sub pod time code
1             package EV::MakeMaker;
2              
3 1 50   1   439 BEGIN { eval { require warnings } && warnings->unimport ("uninitialized") }
  1         50  
4              
5 1     1   5 use Config;
  1         2  
  1         60  
6 1     1   5 use base 'Exporter';
  1         3  
  1         397  
7              
8             @EXPORT_OK = qw(&ev_args $installsitearch);
9              
10             my %opt;
11              
12             for my $opt (split /:+/, $ENV{PERL_MM_OPT}) {
13             my ($k,$v) = split /=/, $opt;
14             $opt{$k} = $v;
15             }
16              
17             my $extra = $Config{sitearch};
18              
19             $extra =~ s/$Config{prefix}/$opt{PREFIX}/ if
20             exists $opt{PREFIX};
21              
22             for my $d ($extra, @INC) {
23             if (-e "$d/EV/EVAPI.h") {
24             $installsitearch = $d;
25             last;
26             }
27             }
28              
29             sub ev_args {
30 0     0 0   my %arg = @_;
31 0           $arg{INC} .= " -I$installsitearch/EV -I$installsitearch";
32 0           %arg;
33             }
34              
35             1;
36             __END__