view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

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

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

WriteMakefile(
  NAME => 'Alt::Acme::Math::XS::CPP',
  VERSION => '0.0.5',
  ABSTRACT => 'Math is HARD (faster!)',
  AUTHOR => 'Ingy döt Net <ingy@cpan.org>',
  LICENSE => 'perl',
  MIN_PERL_VERSION => '5.008001',

inc/Inline/CPP/Config.pm  view on Meta::CPAN

    }
    return ($compiler, $libs, $iostream_fn, $cpp_flavor_defs);
}

sub throw {
    my $os = $^O;
    my $msg = "Unsupported OS/Compiler for Inline::Module+Inline::CPP '$os'";
    die $msg unless
        $ENV{PERL5_MINISMOKEBOX} ||
        $ENV{PERL_CR_SMOKER_CURRENT};
    eval 'use lib "inc"; use Inline::Module; 1' or die $@;
    Inline::Module->smoke_system_info_dump($msg);
}

sub _trim_whitespace {
    my $string = shift;
    $string =~ s/^\s+|\s+$//g;
    $string =~ s/\s+/ /g;
    return $string;
}

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;