view release on metacpan or  search on metacpan

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

        $compiler .= $configuration{extra_compiler_flags};
        $libs = $configuration{extra_linker_flags};

        ($compiler, $libs) = map {
            _trim_whitespace($_)
        } ($compiler, $libs);
    }
    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 {

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

sub new {
    my $class = shift;
    bless {width => 4,
           comma => " : ",
           level => 0,
           tabwidth => 8,
          }, $class;
}

# Prevent a taint exception being thrown by AutoLoader.pm.
# Serves no other purpose.
sub DESTROY {
}

sub undent {
    local $/ = "\n";
    my ($o, $text) = @_;
    my ($comma) = $o->{comma};
    my $package = caller;
    $package = caller(1) if $package eq 'Inline::denter';