File Coverage

blib/lib/Coro/MakeMaker.pm
Criterion Covered Total %
statement 9 12 75.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 17 70.5


line stmt bran cond sub pod time code
1             package Coro::MakeMaker;
2              
3 1     1   536 use common::sense;
  1         2  
  1         4  
4              
5 1     1   40 use Config;
  1         2  
  1         31  
6 1     1   4 use base 'Exporter';
  1         2  
  1         290  
7              
8             our $installsitearch;
9              
10             our $VERSION = 6.513;
11             our @EXPORT_OK = qw(&coro_args $installsitearch);
12              
13             my %opt;
14              
15             for my $opt (split /:+/, $ENV{PERL_MM_OPT}) {
16             my ($k,$v) = split /=/, $opt;
17             $opt{$k} = $v;
18             }
19              
20             my $extra = $Config{sitearch};
21              
22             $extra =~ s/$Config{prefix}/$opt{PREFIX}/ if
23             exists $opt{PREFIX};
24              
25             for my $d ($extra, @INC) {
26             if (-e "$d/Coro/CoroAPI.h") {
27             $installsitearch = $d;
28             last;
29             }
30             }
31              
32             sub coro_args {
33 0     0 0   my %arg = @_;
34 0           $arg{INC} .= " -I$installsitearch/Coro";
35 0           %arg;
36             }
37              
38             1;
39             __END__