App-mimi
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
#!/usr/bin/env perl
# This chunk of stuff was generated by App::FatPacker. To find the original
# file's code, look for the end of this BEGIN block or the string 'FATPACK'
BEGIN {
my %fatpacked;
$fatpacked{"App/mimi.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_MIMI';
package App::mimi;use strict;use warnings;our$VERSION='0.03';use Carp qw(croak);use File::Spec;use File::Basename ();use DBI;use App::mimi::db;sub new {my$class=shift;my (%params)=@_;my$self={};bless$self,$class;$self->{dsn}=$params{dsn};$self->{sc...
APP_MIMI
$fatpacked{"App/mimi/db.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_MIMI_DB';
package App::mimi::db;use strict;use warnings;use Carp qw(croak);sub new {my$class=shift;my (%params)=@_;my$self={};bless$self,$class;$self->{dbh}=$params{dbh}or croak 'dbh required';$self->{columns}=[qw/no created status error/];return$self}sub is...
CREATE TABLE mimi (
id INTEGER PRIMARY KEY AUTOINCREMENT,
created INTEGER NOT NULL,
no INTEGER NOT NULL,
status VARCHAR(32) NOT NULL,
error VARCHAR(255)
);
EOF
CREATE TABLE mimi (
id serial PRIMARY KEY,
created INTEGER NOT NULL,
no INTEGER NOT NULL,
status VARCHAR(32) NOT NULL,
error VARCHAR(255)
);
EOF
APP_MIMI_DB
$fatpacked{"Bundle/DBI.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'BUNDLE_DBI';
package Bundle::DBI;use strict;our$VERSION="0.03";1;
BUNDLE_DBI
$fatpacked{"Class/Accessor/Lite.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'CLASS_ACCESSOR_LITE';
package Class::Accessor::Lite;use strict;our$VERSION='0.03';sub croak {require Carp;Carp::croak(@_)}sub import {shift;my%args=@_;my$pkg=caller(0);my%key_ctor=(rw=>\&_mk_accessors,ro=>\&_mk_ro_accessors,wo=>\&_mk_wo_accessors,);for my$key (sort keys...
CLASS_ACCESSOR_LITE
$fatpacked{"DBD/DBM.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_DBM';
require 5.008;use strict;package DBD::DBM;use base qw(DBD::File);use vars qw($VERSION $ATTRIBUTION $drh $methods_already_installed);$VERSION='0.03';$ATTRIBUTION='DBD::DBM by Jens Rehsack';sub driver ($;$) {my ($class,$attr)=@_;return$drh if ($drh);...
DBD_DBM
$fatpacked{"DBD/ExampleP.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_EXAMPLEP';
{package DBD::ExampleP;use strict;use Symbol;use DBI qw(:sql_types);require File::Spec;our (@EXPORT,$VERSION,@statnames,%statnames,@stattypes,%stattypes,@statprec,%statprec,$drh,);@EXPORT=qw();$VERSION="0.03";@statnames=qw(dev ino mode nlink uid gi...
DBD_EXAMPLEP
$fatpacked{"DBD/File.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_FILE';
require 5.008;use strict;use warnings;use DBI ();package DBD::File;use strict;use warnings;use base qw(DBI::DBD::SqlEngine);use Carp;use vars qw(@ISA $VERSION $drh);$VERSION="0.03";$drh=undef;sub driver ($;$) {my ($class,$attr)=@_;$drh->{$class}and...
DBD_FILE
$fatpacked{"DBD/Gofer.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER';
{package DBD::Gofer;use strict;require DBI;require DBI::Gofer::Request;require DBI::Gofer::Response;require Carp;our$VERSION="0.03";our%xxh_local_store_attrib=map {$_=>1}qw(Active CachedKids Callbacks DbTypeSubclass ErrCount Executed FetchHashKeyNa...
DBD_GOFER
$fatpacked{"DBD/Gofer/Policy/Base.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_POLICY_BASE';
package DBD::Gofer::Policy::Base;use strict;use warnings;use Carp;our$VERSION="0.03";our$AUTOLOAD;my%policy_defaults=(connect_method=>'connect',prepare_method=>'prepare',skip_connect_check=>0,skip_default_methods=>0,skip_prepare_check=>0,skip_ping=...
DBD_GOFER_POLICY_BASE
$fatpacked{"DBD/Gofer/Policy/classic.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_POLICY_CLASSIC';
package DBD::Gofer::Policy::classic;use strict;use warnings;our$VERSION="0.03";use base qw(DBD::Gofer::Policy::Base);__PACKAGE__->create_policy_subs({connect_method=>'connect_cached',prepare_method=>'',skip_connect_check=>0,skip_prepare_check=>1,sk...
DBD_GOFER_POLICY_CLASSIC
$fatpacked{"DBD/Gofer/Policy/pedantic.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_POLICY_PEDANTIC';
package DBD::Gofer::Policy::pedantic;use strict;use warnings;our$VERSION="0.03";use base qw(DBD::Gofer::Policy::Base);1;
DBD_GOFER_POLICY_PEDANTIC
$fatpacked{"DBD/Gofer/Policy/rush.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_POLICY_RUSH';
package DBD::Gofer::Policy::rush;use strict;use warnings;our$VERSION="0.03";use base qw(DBD::Gofer::Policy::Base);__PACKAGE__->create_policy_subs({connect_method=>'connect_cached',prepare_method=>'',skip_connect_check=>1,skip_prepare_check=>1,skip_...
DBD_GOFER_POLICY_RUSH
$fatpacked{"DBD/Gofer/Transport/Base.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_TRANSPORT_BASE';
package DBD::Gofer::Transport::Base;use strict;use warnings;use base qw(DBI::Gofer::Transport::Base);our$VERSION="0.03";__PACKAGE__->mk_accessors(qw(trace go_dsn go_url go_policy go_timeout go_retry_hook go_retry_limit go_cache cache_hit cache_miss...
DBD_GOFER_TRANSPORT_BASE
$fatpacked{"DBD/Gofer/Transport/corostream.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_TRANSPORT_COROSTREAM';
package DBD::Gofer::Transport::corostream;use strict;use warnings;use Carp;use Coro::Select;use Coro;use Coro::Handle;use base qw(DBD::Gofer::Transport::stream);sub start_pipe_command {local$ENV{DBI_PUREPERL}=$ENV{DBI_PUREPERL_COROCHILD};my$connect...
DBD_GOFER_TRANSPORT_COROSTREAM
$fatpacked{"DBD/Gofer/Transport/null.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_TRANSPORT_NULL';
package DBD::Gofer::Transport::null;use strict;use warnings;use base qw(DBD::Gofer::Transport::Base);use DBI::Gofer::Execute;our$VERSION="0.03";__PACKAGE__->mk_accessors(qw(pending_response transmit_count));my$executor=DBI::Gofer::Execute->new();su...
DBD_GOFER_TRANSPORT_NULL
$fatpacked{"DBD/Gofer/Transport/pipeone.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_TRANSPORT_PIPEONE';
package DBD::Gofer::Transport::pipeone;use strict;use warnings;use Carp;use Fcntl;use IO::Select;use IPC::Open3 qw(open3);use Symbol qw(gensym);use base qw(DBD::Gofer::Transport::Base);our$VERSION="0.03";__PACKAGE__->mk_accessors(qw(connection_info...
DBD_GOFER_TRANSPORT_PIPEONE
$fatpacked{"DBD/Gofer/Transport/stream.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER_TRANSPORT_STREAM';
package DBD::Gofer::Transport::stream;use strict;use warnings;use Carp;use base qw(DBD::Gofer::Transport::pipeone);our$VERSION="0.03";__PACKAGE__->mk_accessors(qw(go_persist));my$persist_all=5;my%persist;sub _connection_key {my ($self)=@_;return jo...
DBD_GOFER_TRANSPORT_STREAM
$fatpacked{"DBD/NullP.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_NULLP';
use strict;{package DBD::NullP;require DBI;require Carp;our@EXPORT=qw();our$VERSION="0.03";our$drh=undef;sub driver{return$drh if$drh;my($class,$attr)=@_;$class .= "::dr";($drh)=DBI::_new_drh($class,{'Name'=>'NullP','Version'=>$VERSION,'Attribution...
DBD_NULLP
$fatpacked{"DBD/Proxy.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_PROXY';
use strict;use Carp;require DBI;DBI->require_version(1.0201);use RPC::PlClient 0.2000;{package DBD::Proxy::RPC::PlClient;@DBD::Proxy::RPC::PlClient::ISA=qw(RPC::PlClient);sub Call {my$self=shift;if ($self->{debug}){my ($rpcmeth,$obj,$method,@args)=...
package ~class~;
sub ~method~ {
my $h = shift;
local $@;
my @result = wantarray
? eval { $h->{'proxy_~type~h'}->~call~ }
: eval { scalar $h->{'proxy_~type~h'}->~call~ };
return DBD::Proxy::proxy_set_err($h, $@) if $@;
return wantarray ? @result : $result[0];
}
};$method_code =~ s/\~(\w+)\~/$expand{$1}/eg;local$SIG{__DIE__}='DEFAULT';my$err=do {local $@;eval$method_code.2;$@};die$err if$err;goto &$AUTOLOAD}sub DESTROY {my$dbh=shift;local $@ if $@;$dbh->disconnect if$dbh->SUPER::FETCH('Active')}sub con...
DBD_PROXY
mimi.fatpack view on Meta::CPAN
}
if ($sub) {
(wantarray) ? (@ret = &$sub($h,@_)) : (@ret = scalar &$sub($h,@_));
}
else {
# XXX could try explicit fallback to $imp->can('AUTOLOAD') etc
# which would then let Multiplex pass PurePerl tests, but some
# hook into install_method may be better.
croak "Can't locate DBI object method \"$method_name\" via package \"$imp\""
if ] .((IMA_NOT_FOUND_OKAY & $bitmask)? 0 : 1).q[;
}
] .join("\n",'',@post_call_frag,'').q[
return (wantarray) ? @ret : $ret[0];
}
];no strict qw(refs);my$code_ref=eval qq{#line 1 "DBI::PurePerl $method"\n$method_code};warn "$@\n$method_code\n" if $@;die "$@\n$method_code\n" if $@;*$method=$code_ref;if (0 && $method =~ /\b(connect|FETCH)\b/){my$l=0;warn "*$method code:\n"....
DBI_PUREPERL
$fatpacked{"DBI/SQL/Nano.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_SQL_NANO';
package DBI::SQL::Nano;use strict;use warnings;use vars qw($VERSION $versions);use Carp qw(croak);require DBI;BEGIN {$VERSION="0.03";$versions->{nano_version}=$VERSION;if ($ENV{DBI_SQL_NANO}||!eval {require SQL::Statement;$SQL::Statement::VERSION g...
DBI_SQL_NANO
$fatpacked{"DBI/Util/CacheMemory.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_UTIL_CACHEMEMORY';
package DBI::Util::CacheMemory;use strict;use warnings;our$VERSION="0.03";my%cache;sub new {my ($class,%options)=@_;my$namespace=$options{namespace}||= 'Default';my$self=bless \%options=>$class;$cache{$namespace }||= {};return$self}sub set {my ($se...
DBI_UTIL_CACHEMEMORY
$fatpacked{"DBI/Util/_accessor.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_UTIL__ACCESSOR';
package DBI::Util::_accessor;use strict;use Carp;our$VERSION="0.03";sub new {my($proto,$fields)=@_;my($class)=ref$proto || $proto;$fields ||= {};my@dubious=grep {!m/^_/ &&!$proto->can($_)}keys %$fields;carp "$class doesn't have accessors for fields...
DBI_UTIL__ACCESSOR
$fatpacked{"DBI/W32ODBC.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_W32ODBC';
package DBI;${'DBI::VERSION'}="0.01";my$Revision=sprintf("12.%06d",q$Revision: 8696 $ =~ /(\d+)/o);sub DBI::W32ODBC::import {}use Carp;use Win32::ODBC;@ISA=qw(Win32::ODBC);use strict;$DBI::dbi_debug=$ENV{PERL_DBI_DEBUG}|| 0;carp "Loaded (W32ODBC) D...
DBI_W32ODBC
$fatpacked{"Docopt.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DOCOPT';
use 5.008005;use strict;use warnings FATAL=>'all';package Docopt;use Docopt::Util qw(string_partition in serialize defined_or);package Docopt::Pattern;use Docopt::Util qw(defined_or);sub new {my$class=shift;bless [],$class}sub fix {my$self=shift;$s...
DOCOPT
$fatpacked{"Docopt/Util.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DOCOPT_UTIL';
package Docopt::Util;use strict;use warnings;use utf8;use parent qw(Exporter);use boolean;our@EXPORT_OK=qw(repl class_name string_strip string_partition in True False is_number defined_or serialize pyprint);sub True() {true}sub False() {false}use D...
DOCOPT_UTIL
$fatpacked{"Exporter/Shiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXPORTER_SHINY';
package Exporter::Shiny;use 5.006001;use strict;use warnings;use Exporter::Tiny ();our$AUTHORITY='cpan:TOBYINK';our$VERSION='0.03';sub import {my$me=shift;my$caller=caller;(my$nominal_file=$caller)=~ s(::)(/)g;$INC{"$nominal_file\.pm"}||= __FILE__;...
EXPORTER_SHINY
$fatpacked{"Exporter/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXPORTER_TINY';
package Exporter::Tiny;use 5.006001;use strict;use warnings;no warnings qw(void once uninitialized numeric redefine);our$AUTHORITY='cpan:TOBYINK';our$VERSION='0.03';our@EXPORT_OK=qw<mkopt mkopt_hash _croak _carp>;sub _croak ($;@) {require Carp;my$f...
EXPORTER_TINY
$fatpacked{"ExtUtils/Config.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXTUTILS_CONFIG';
package ExtUtils::Config;$ExtUtils::Config::VERSION='0.03';use strict;use warnings;use Config;use Data::Dumper ();sub new {my ($pack,$args)=@_;return bless {values=>($args ? {%$args }: {}),},$pack}sub get {my ($self,$key)=@_;return exists$self->{va...
EXTUTILS_CONFIG
$fatpacked{"ExtUtils/Helpers.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXTUTILS_HELPERS';
package ExtUtils::Helpers;$ExtUtils::Helpers::VERSION='0.03';use strict;use warnings FATAL=>'all';use Exporter 5.57 'import';use Config;use File::Basename qw/basename/;use File::Spec::Functions qw/splitpath canonpath abs2rel splitdir/;use Text::Par...
EXTUTILS_HELPERS
$fatpacked{"ExtUtils/Helpers/Unix.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXTUTILS_HELPERS_UNIX';
package ExtUtils::Helpers::Unix;$ExtUtils::Helpers::Unix::VERSION='0.03';use strict;use warnings FATAL=>'all';use Exporter 5.57 'import';our@EXPORT=qw/make_executable detildefy/;use Carp qw/croak/;use Config;my$layer=$] >= 5.008001 ? ":raw" : "";su...
EXTUTILS_HELPERS_UNIX
$fatpacked{"ExtUtils/Helpers/VMS.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXTUTILS_HELPERS_VMS';
package ExtUtils::Helpers::VMS;$ExtUtils::Helpers::VMS::VERSION='0.03';use strict;use warnings FATAL=>'all';use Exporter 5.57 'import';our@EXPORT=qw/make_executable detildefy/;use File::Copy qw/copy/;sub make_executable {my$filename=shift;my$batchn...
EXTUTILS_HELPERS_VMS
$fatpacked{"ExtUtils/Helpers/Windows.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXTUTILS_HELPERS_WINDOWS';
package ExtUtils::Helpers::Windows;$ExtUtils::Helpers::Windows::VERSION='0.03';use strict;use warnings FATAL=>'all';use Exporter 5.57 'import';our@EXPORT=qw/make_executable detildefy/;use Config;use Carp qw/carp croak/;use ExtUtils::PL2Bat 'pl2bat'...
EXTUTILS_HELPERS_WINDOWS
$fatpacked{"ExtUtils/InstallPaths.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXTUTILS_INSTALLPATHS';
package ExtUtils::InstallPaths;$ExtUtils::InstallPaths::VERSION='0.03';use 5.006;use strict;use warnings;use File::Spec ();use Carp ();use ExtUtils::Config 0.002;my%complex_accessors=map {$_=>1}qw/prefix_relpaths install_sets/;my%hash_accessors=map...
EXTUTILS_INSTALLPATHS
$fatpacked{"List/MoreUtils.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'LIST_MOREUTILS';
package List::MoreUtils;use 5.006;use strict;use warnings;BEGIN {our$VERSION='0.03';eval {require List::MoreUtils::XS}unless$ENV{LIST_MOREUTILS_PP};use List::MoreUtils::PP qw()}use Exporter::Tiny qw();my@junctions=qw(any all none notall);my@v0_22=q...
LIST_MOREUTILS
$fatpacked{"List/MoreUtils/PP.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'LIST_MOREUTILS_PP';
package List::MoreUtils::PP;use 5.006;use strict;use warnings;our$VERSION='0.03';sub any (&@) {my$f=shift;for (@_){return 1 if$f->()}return 0}sub all (&@) {my$f=shift;for (@_){return 0 unless$f->()}return 1}sub none (&@) {my$f=shift;for (@_){return...
LIST_MOREUTILS_PP
$fatpacked{"List/MoreUtils/XS.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'LIST_MOREUTILS_XS';
package List::MoreUtils::XS;use 5.006;use strict;use warnings;use vars qw{$VERSION @ISA};$VERSION='0.03';local$ENV{PERL_DL_NONLAZY}=0 if$ENV{PERL_DL_NONLAZY};use XSLoader ();XSLoader::load("List::MoreUtils","$VERSION");1;
LIST_MOREUTILS_XS
$fatpacked{"Module/Build.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD';
package Module::Build;use if $] >= 5.019,'deprecate';use 5.006;use strict;use warnings;use File::Spec ();use File::Path ();use File::Basename ();use Perl::OSType ();use Module::Build::Base;our@ISA=qw(Module::Build::Base);our$VERSION='0.03';$VERSION...
MODULE_BUILD
$fatpacked{"Module/Build/Base.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_BASE';
package Module::Build::Base;use 5.006;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Carp;use Cwd ();use File::Copy ();use File::Find ();use File::Path ();use File::Basename ();use File::Spec 0.82 ();use File::Compare ();use M...
ERRORS/WARNINGS FOUND IN PREREQUISITES. You may wish to install the versions
of the modules indicated above before proceeding with this installation
EOF
* FATAL ERROR: Perl interpreter mismatch. Configuration was initially
created with '$self->{properties}{perl}'
but we are now using '$perl'. You must
run 'Build realclean' or 'make realclean' and re-configure.
DIEFATAL
* WARNING: Configuration was initially created with Module::Build
version '$self->{properties}{mb_version}' but we are now using version '$mb_version'.
If errors occur, you must re-run the Build.PL or Makefile.PL script.
MISMATCH
ERROR: This build seems to be unattended, but there is no default value
for this question. Aborting.
EOF
package $opts{class};
use $pack;
\@ISA = qw($pack);
$opts{code}
1;
EOF
No 'module_name' was provided and it could not be inferred
from other properties. This will prevent a packlist from
being written for this file. Please set either 'module_name'
or 'dist_version_from' in Build.PL.
END_WARN
mimi.fatpack view on Meta::CPAN
=item config_names()
Returns a list of all the names of config items currently defined in
C<NOTES_NAME>, or in scalar context the number of items.
=item feature_names()
Returns a list of all the names of features currently defined in
C<NOTES_NAME>, or in scalar context the number of features.
=item auto_feature_names()
Returns a list of all the names of features whose availability is
dynamically determined, or in scalar context the number of such
features. Does not include such features that have later been set to
a fixed value.
=item write()
Commits any changes from C<set_config()> and C<set_feature()> to disk.
Requires write access to the C<NOTES_NAME> module.
=back
=head1 AUTHOR
C<NOTES_NAME> was automatically created using C<Module::Build>.
C<Module::Build> was written by Ken Williams, but he holds no
authorship claim or copyright claim to the contents of C<NOTES_NAME>.
=end private
MODULE_BUILD_NOTES
$fatpacked{"Module/Build/PPMMaker.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PPMMAKER';
package Module::Build::PPMMaker;use strict;use warnings;use Config;our$VERSION='0.03';$VERSION=eval$VERSION;sub new {my$package=shift;return bless {@_},$package}sub make_ppd {my ($self,%args)=@_;my$build=delete$args{build};my@codebase;if (exists$ar...
<SOFTPKG NAME=\"$dist{name}\" VERSION=\"$dist{version}\">
<ABSTRACT>$dist{abstract}</ABSTRACT>
@{[ join "\n", map " <AUTHOR>$_</AUTHOR>", @{$dist{author}} ]}
<IMPLEMENTATION>
PPD
<ARCHITECTURE NAME="%s" />
EOF
<CODEBASE HREF="%s" />
EOF
</IMPLEMENTATION>
</SOFTPKG>
EOF
MODULE_BUILD_PPMMAKER
$fatpacked{"Module/Build/Platform/Default.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_DEFAULT';
package Module::Build::Platform::Default;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Base;our@ISA=qw(Module::Build::Base);1;
MODULE_BUILD_PLATFORM_DEFAULT
$fatpacked{"Module/Build/Platform/MacOS.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_MACOS';
package Module::Build::Platform::MacOS;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Base;our@ISA=qw(Module::Build::Base);use ExtUtils::Install;sub have_forkpipe {0}sub new {my$class=shift;my$self=$class->SUPER...
MODULE_BUILD_PLATFORM_MACOS
$fatpacked{"Module/Build/Platform/Unix.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_UNIX';
package Module::Build::Platform::Unix;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Base;our@ISA=qw(Module::Build::Base);sub is_executable {my ($self,$file)=@_;return +(stat$file)[2]& 0100}sub _startperl {"#! "...
MODULE_BUILD_PLATFORM_UNIX
$fatpacked{"Module/Build/Platform/VMS.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_VMS';
package Module::Build::Platform::VMS;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Base;use Config;our@ISA=qw(Module::Build::Base);sub _set_defaults {my$self=shift;$self->SUPER::_set_defaults(@_);$self->{proper...
MODULE_BUILD_PLATFORM_VMS
$fatpacked{"Module/Build/Platform/VOS.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_VOS';
package Module::Build::Platform::VOS;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Base;our@ISA=qw(Module::Build::Base);1;
MODULE_BUILD_PLATFORM_VOS
$fatpacked{"Module/Build/Platform/Windows.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_WINDOWS';
package Module::Build::Platform::Windows;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Config;use File::Basename;use File::Spec;use Module::Build::Base;our@ISA=qw(Module::Build::Base);sub manpage_separator {return '.'}sub hav...
\@rem = '--*-Perl-*--
\@echo off
if "%OS%" == "Windows_NT" goto WinNT
perl $opts{otherargs}
goto endofperl
:WinNT
perl $opts{ntargs}
if NOT "%COMSPEC%" == "%SystemRoot%\\system32\\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
\@rem ';
EOT
MODULE_BUILD_PLATFORM_WINDOWS
$fatpacked{"Module/Build/Platform/aix.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_AIX';
package Module::Build::Platform::aix;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Platform::Unix;our@ISA=qw(Module::Build::Platform::Unix);1;
MODULE_BUILD_PLATFORM_AIX
$fatpacked{"Module/Build/Platform/cygwin.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_CYGWIN';
package Module::Build::Platform::cygwin;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Platform::Unix;our@ISA=qw(Module::Build::Platform::Unix);sub manpage_separator {'.'}sub _maybe_command {my ($self,$file)=@_;...
MODULE_BUILD_PLATFORM_CYGWIN
$fatpacked{"Module/Build/Platform/darwin.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_DARWIN';
package Module::Build::Platform::darwin;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Platform::Unix;our@ISA=qw(Module::Build::Platform::Unix);1;
MODULE_BUILD_PLATFORM_DARWIN
$fatpacked{"Module/Build/Platform/os2.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PLATFORM_OS2';
package Module::Build::Platform::os2;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Module::Build::Platform::Unix;our@ISA=qw(Module::Build::Platform::Unix);sub manpage_separator {'.'}sub have_forkpipe {0}sub _maybe_command {my...
MODULE_BUILD_PLATFORM_OS2
$fatpacked{"Module/Build/PodParser.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PODPARSER';
package Module::Build::PodParser;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;sub new {my$package=shift;my$self;$self=bless {have_pod_parser=>0,@_},$package;unless ($self->{fh}){die "No 'file' or 'fh' parameter given" unless$sel...
MODULE_BUILD_PODPARSER
$fatpacked{"Module/Build/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_TINY';
package Module::Build::Tiny;$Module::Build::Tiny::VERSION='0.03';use strict;use warnings;use Exporter 5.57 'import';our@EXPORT=qw/Build Build_PL/;use CPAN::Meta;use ExtUtils::Config 0.003;use ExtUtils::Helpers 0.020 qw/make_executable split_like_sh...
MODULE_BUILD_TINY
$fatpacked{"Test/Fatal.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_FATAL';
use strict;use warnings;package Test::Fatal;$Test::Fatal::VERSION='0.03';use Carp ();use Try::Tiny 0.07;use Exporter 5.57 'import';our@EXPORT=qw(exception);our@EXPORT_OK=qw(exception success dies_ok lives_ok);our ($REAL_TBL,$REAL_CALCULATED_TBL)=(1...
TEST_FATAL
$fatpacked{"Test/TempDir/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_TEMPDIR_TINY';
use 5.006002;use strict;use warnings;package Test::TempDir::Tiny;our$VERSION='0.03';use Exporter 5.57 qw/import/;our@EXPORT=qw/tempdir in_tempdir/;use Carp qw/confess/;use Cwd qw/abs_path/;use Errno qw/EEXIST ENOENT/;{no warnings 'numeric';use File...
TEST_TEMPDIR_TINY
$fatpacked{"Try/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TRY_TINY';
( run in 1.598 second using v1.01-cache-2.11-cpan-437f7b0c052 )