From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

ETJ / PDL-2.100 / lib / PDL / Install / Files.pm 

            

              
—
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

              
=head1 NAME
PDL::Install::Files -- Module for use by L<ExtUtils::Depends> and L<Inline>
=head1 SYNOPSIS
  use Inline with => 'PDL';
  # or alternatively, if your XS module uses PDL:
  use ExtUtils::Depends;
  my $pkg = ExtUtils::Depends->new(qw(MyPackage PDL));
=head1 DESCRIPTION
This module is for use by L<ExtUtils::Depends> and L<Inline>. There are
no user-serviceable parts inside.
=cut
package PDL::Install::Files;
use strict;
use warnings;
# support ExtUtils::Depends
require PDL::Core::Dev;
our $VERSION = '2.009';
my $self = {
  'typemaps' => [ &PDL::Core::Dev::PDL_TYPEMAP ],
  'inc' => &PDL::Core::Dev::PDL_INCLUDE,
  'libs' => '',
  'deps' => [],
};
our @deps = @{ $self->{deps} };
our @typemaps = @{ $self->{typemaps} };
our $libs = $self->{libs};
our $inc = $self->{inc};
our $CORE = undef;
foreach (@INC) {
  if ( -f "$_/PDL/Install/Files.pm") { $CORE = $_ . "/PDL/Install/"; last; }
}
sub deps { }
# support: use Inline with => 'PDL';
sub Inline {
  my ($class, $lang) = @_;
  return {} if $lang eq 'Pdlpp';
  unless ($ENV{"PDL_Early_Inline"} || (($Inline::VERSION//0.68) >= 0.68)) {
      die "PDL::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{PDL_Early_Inline} to a true value to ignore this message.\n";
  }
  +{
    TYPEMAPS      => [ &PDL::Core::Dev::PDL_TYPEMAP ],
    INC           => &PDL::Core::Dev::PDL_INCLUDE,
    AUTO_INCLUDE  => &PDL::Core::Dev::PDL_AUTO_INCLUDE,
    BOOT          => &PDL::Core::Dev::PDL_BOOT,
  };
}
1;