File Coverage

blib/lib/PDLA/Install/Files.pm
Criterion Covered Total %
statement 5 6 83.3
branch 3 6 50.0
condition 1 3 33.3
subroutine 1 2 50.0
pod 0 2 0.0
total 10 19 52.6


line stmt bran cond sub pod time code
1             =head1 NAME
2              
3             PDLA::Install::Files -- Module for use by L and L
4              
5             =head1 SYNOPSIS
6              
7             use Inline with => 'PDLA';
8             # or alternatively, if your XS module uses PDLA:
9             use ExtUtils::Depends;
10             my $pkg = ExtUtils::Depends->new(qw(MyPackage PDLA));
11              
12             =head1 DESCRIPTION
13              
14             This module is for use by L and L. There are
15             no user-serviceable parts inside.
16              
17             =cut
18              
19             package PDLA::Install::Files;
20             # support ExtUtils::Depends
21             require PDLA::Core::Dev;
22              
23             our $VERSION = '2.009';
24              
25             $self = {
26             'typemaps' => [ &PDLA::Core::Dev::PDLA_TYPEMAP ],
27             'inc' => &PDLA::Core::Dev::PDLA_INCLUDE,
28             'libs' => '',
29             'deps' => [],
30             };
31             @deps = @{ $self->{deps} };
32             @typemaps = @{ $self->{typemaps} };
33             $libs = $self->{libs};
34             $inc = $self->{inc};
35             $CORE = undef;
36             foreach (@INC) {
37             if ( -f "$_/PDLA/Install/Files.pm") { $CORE = $_ . "/PDLA/Install/"; last; }
38             }
39              
40       0 0   sub deps { }
41             # support: use Inline with => 'PDLA';
42              
43             require Inline;
44              
45             sub Inline {
46 1     1 0 9 my ($class, $lang) = @_;
47 1 50       4 return {} if $lang eq 'Pdlapp';
48 1 50       3 return unless $lang eq 'C';
49 1 50 33     10 unless($ENV{"PDLA_Early_Inline"} // ($Inline::VERSION >= 0.68) ) {
50 0         0 die "PDLA::Inline: requires Inline version 0.68 or higher to make sense\n (yours is $Inline::VERSION). You should upgrade Inline, \n or else set \$ENV{PDLA_Early_Inline} to a true value to ignore this message.\n";
51             }
52             +{
53 1         5 TYPEMAPS => [ &PDLA::Core::Dev::PDLA_TYPEMAP ],
54             INC => &PDLA::Core::Dev::PDLA_INCLUDE,
55             AUTO_INCLUDE => &PDLA::Core::Dev::PDLA_AUTO_INCLUDE,
56             BOOT => &PDLA::Core::Dev::PDLA_BOOT,
57             };
58             }
59              
60             1;