view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

require 5.008001; use strict; use warnings; use utf8;

use lib 'inc';
use ExtUtils::MakeMaker;
use Inline::Module;

my $alt = $ENV{PERL_ALT_INSTALL} || '';
my %WriteMakefileArgs = (
  NAME => 'Alt::Devel::GlobalDestruction::XS::Inline',
  AUTHOR => 'Ingy döt Net <ingy@cpan.org>',
  VERSION_FROM => 'lib/Alt/Devel/GlobalDestruction/XS/Inline.pm',
  ABSTRACT => 'Alternate Faster implementation of the Devel::GlobalDestruction API (using Inline::Module)',
  LICENSE => 'perl',

inc/Inline/Module.pm  view on Meta::CPAN

sub check_inc_inc {
    my ($class, $program) = @_;
    my $first = $INC[0] or die;
    if ($first !~ /^(\.[\/\\])?inc[\/\\]?$/) {
        die <<"...";
First element of \@INC should be 'inc'.
It's '$first'.
Add this line to the top of your '$program':

    use lib 'inc';

...
    }
}

sub importer {
    my ($class, $stub_module) = @_;
    return sub {
        my ($class, $lang) = @_;
        return unless defined $lang;