Alt-Math-Prime-FastSieve-Inline
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
use strict; use warnings;
package Inline::C;
our $VERSION = '0.71';
use Inline 0.56;
use Config;
use Data::Dumper;
use Carp;
use Cwd qw(cwd abs_path);
use File::Spec;
use constant IS_WIN32 => $^O eq 'MSWin32';
use if !IS_WIN32, Fcntl => ':flock';
use if IS_WIN32, 'Win32::Mutex';
our @ISA = qw(Inline);
#==============================================================================
inc/Inline/Module.pm view on Meta::CPAN
print $out "$file\n";
}
close $out;
}
}
sub smoke_system_info_dump {
my ($class, @msg) = @_;
my $msg = sprintf(@msg);
chomp $msg;
require Data::Dumper;
local $Data::Dumper::Sortkeys = 1;
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Indent = 1;
my @path_files;
File::Find::find({
wanted => sub {
push @path_files, $File::Find::name if -f;
},
}, File::Spec->path());
my $dump = Data::Dumper::Dumper(
{
'ENV' => \%ENV,
'Config' => \%Config::Config,
'Path Files' => \@path_files,
},
);
Carp::confess <<"..."
Error: $msg
System Data:
inc/Parse/RecDescent.pm view on Meta::CPAN
$code = $self->_code();
if ($opt{-standalone}) {
$code =~ s/Parse::RecDescent/$runtime_package/gs;
}
print OUT $code;
print OUT "}\npackage $class; sub new { ";
print OUT "my ";
require Data::Dumper;
$code = Data::Dumper->Dump([$self], [qw(self)]);
if ($opt{-standalone}) {
$code =~ s/Parse::RecDescent/$runtime_package/gs;
}
print OUT $code;
print OUT "}";
close OUT
or croak("Can't write to new module file '$modulefile'");
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.553 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )