App-mimi
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
require $driver_class; # load the driver
};if ($@){my$err=$@;my$advice="";if ($err =~ /Can't find loadable object/){$advice="Perhaps DBD::$driver was statically linked into a new perl binary." ."\nIn which case you need to use that new perl binary." ."\nOr perhaps only the .pm file wa...
DBI
$fatpacked{"DBI/Changes.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_CHANGES';
DBI_CHANGES
$fatpacked{"DBI/Const/GetInfo/ANSI.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_CONST_GETINFO_ANSI';
use strict;package DBI::Const::GetInfo::ANSI;our (%InfoTypes,%ReturnTypes,%ReturnValues,);my$VERSION="0.03";%InfoTypes=(SQL_ALTER_TABLE=>86,SQL_CATALOG_NAME=>10003,SQL_COLLATING_SEQUENCE=>10004,SQL_CURSOR_COMMIT_BEHAVIOR=>23,SQL_CURSOR_SENSITIVITY=...
DBI_CONST_GETINFO_ANSI
$fatpacked{"DBI/Const/GetInfo/ODBC.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_CONST_GETINFO_ODBC';
use strict;package DBI::Const::GetInfo::ODBC;our (%InfoTypes,%ReturnTypes,%ReturnValues,);my$VERSION="0.03";%InfoTypes=(SQL_ACCESSIBLE_PROCEDURES=>20,SQL_ACCESSIBLE_TABLES=>19,SQL_ACTIVE_CONNECTIONS=>0,SQL_ACTIVE_ENVIRONMENTS=>116,SQL_ACTIVE_STATEM...
DBI_CONST_GETINFO_ODBC
$fatpacked{"DBI/Const/GetInfoReturn.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_CONST_GETINFORETURN';
package DBI::Const::GetInfoReturn;use strict;use Exporter ();use vars qw(@ISA @EXPORT @EXPORT_OK %GetInfoReturnTypes %GetInfoReturnValues);@ISA=qw(Exporter);@EXPORT=qw(%GetInfoReturnTypes %GetInfoReturnValues);my$VERSION="0.03";use DBI::Const::GetI...
DBI_CONST_GETINFORETURN
$fatpacked{"DBI/Const/GetInfoType.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_CONST_GETINFOTYPE';
package DBI::Const::GetInfoType;use strict;use Exporter ();use vars qw(@ISA @EXPORT @EXPORT_OK %GetInfoType);@ISA=qw(Exporter);@EXPORT=qw(%GetInfoType);my$VERSION="0.03";use DBI::Const::GetInfo::ANSI ();use DBI::Const::GetInfo::ODBC ();%GetInfoType...
DBI_CONST_GETINFOTYPE
$fatpacked{"DBI/DBD.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_DBD';
package DBI::DBD;use strict;use vars qw($VERSION);$VERSION="0.03";use Exporter ();use Config qw(%Config);use Carp;use Cwd;use File::Spec;use strict;use vars qw(@ISA @EXPORT $is_dbi);BEGIN {if ($^O eq 'VMS'){require vmsish;import vmsish;require VMS:...
*** You're using Microsoft Visual C++ compiler or similar but
the LIB and INCLUDE environment variables are not both set.
You need to run the VCVARS32.BAT batch file that was supplied
with the compiler before you can use it.
A copy of vcvars32.bat can typically be found in the following
directories under your Visual Studio install directory:
Visual C++ 6.0: vc98\\bin
Visual Studio .NET: vc7\\bin
Find it, run it, then retry this.
If you think this error is not correct then just set the LIB and
INCLUDE environment variables to some value to disable the check.
EOT
# --- This section was generated by DBI::DBD::dbd_postamble()
DBI_INSTARCH_DIR='.$dbi_instarch_dir.'
DBI_DRIVER_XST='.$dbi_driver_xst.'
# The main dependency (technically correct but probably not used)
$(BASEEXT).c: $(BASEEXT).xsi
# This dependency is needed since MakeMaker uses the .xs.o rule
$(BASEEXT)$(OBJ_EXT): $(BASEEXT).xsi
$(BASEEXT).xsi: $(DBI_DRIVER_XST) '.$xstf_h.'
$(PERL) -p -e "s/~DRIVER~/$(BASEEXT)/g" $(DBI_DRIVER_XST) > $(BASEEXT).xsi
# ---
'}package DBDI;1;
DBI_DBD
$fatpacked{"DBI/DBD/Metadata.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_DBD_METADATA';
package DBI::DBD::Metadata;use strict;use Exporter ();use Carp;use DBI;use DBI::Const::GetInfoType qw(%GetInfoType);our@ISA=qw(Exporter);our@EXPORT=qw(write_getinfo_pm write_typeinfo_pm);our$VERSION="0.03";sub write_getinfo_pm {my ($dsn,$user,$pass...
# Transfer this to ${driver}.pm
# The get_info function was automatically generated by
# DBI::DBD::Metadata::write_getinfo_pm v$DBI::DBD::Metadata::VERSION.
package DBD::${driver}::db; # This line can be removed once transferred.
sub get_info {
my(\$dbh, \$info_type) = \@_;
require DBD::${driver}::GetInfo;
my \$v = \$DBD::${driver}::GetInfo::info{int(\$info_type)};
\$v = \$v->(\$dbh) if ref \$v eq 'CODE';
return \$v;
}
# Transfer this to lib/DBD/${driver}/GetInfo.pm
# The \%info hash was automatically generated by
# DBI::DBD::Metadata::write_getinfo_pm v$DBI::DBD::Metadata::VERSION.
package DBD::${driver}::GetInfo;
use strict;
use DBD::${driver};
# Beware: not officially documented interfaces...
# use DBI::Const::GetInfoType qw(\%GetInfoType);
# use DBI::Const::GetInfoReturn qw(\%GetInfoReturnTypes \%GetInfoReturnValues);
my \$sql_driver = '${driver}';
my \$sql_ver_fmt = '%02d.%02d.%04d'; # ODBC version string: ##.##.#####
my \$sql_driver_ver = sprintf \$sql_ver_fmt, split (/\\./, \$DBD::${driver}::VERSION);
PERL
sub sql_data_source_name {
my $dbh = shift;
return "dbi:$sql_driver:" . $dbh->{Name};
}
sub sql_user_name {
my $dbh = shift;
# CURRENT_USER is a non-standard attribute, probably undef
# Username is a standard DBI attribute
return $dbh->{CURRENT_USER} || $dbh->{Username};
}
PERL
# Transfer this to ${driver}.pm
# The type_info_all function was automatically generated by
# DBI::DBD::Metadata::write_typeinfo_pm v$DBI::DBD::Metadata::VERSION.
package DBD::${driver}::db; # This line can be removed once transferred.
sub type_info_all
{
my (\$dbh) = \@_;
require DBD::${driver}::TypeInfo;
mimi.fatpack view on Meta::CPAN
$fatpacked{"DBI/Gofer/Request.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_REQUEST';
package DBI::Gofer::Request;use strict;use DBI qw(neat neat_list);use base qw(DBI::Util::_accessor);our$VERSION="0.03";use constant GOf_REQUEST_IDEMPOTENT=>0x0001;use constant GOf_REQUEST_READONLY=>0x0002;our@EXPORT=qw(GOf_REQUEST_IDEMPOTENT GOf_RE...
DBI_GOFER_REQUEST
$fatpacked{"DBI/Gofer/Response.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_RESPONSE';
package DBI::Gofer::Response;use strict;use Carp;use DBI qw(neat neat_list);use base qw(DBI::Util::_accessor Exporter);our$VERSION="0.03";use constant GOf_RESPONSE_EXECUTED=>0x0001;our@EXPORT=qw(GOf_RESPONSE_EXECUTED);__PACKAGE__->mk_accessors(qw(v...
DBI_GOFER_RESPONSE
$fatpacked{"DBI/Gofer/Serializer/Base.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_SERIALIZER_BASE';
package DBI::Gofer::Serializer::Base;use strict;use warnings;use Carp qw(croak);our$VERSION="0.03";sub new {my$class=shift;my$deserializer_class=$class->deserializer_class;return bless {deserializer_class=>$deserializer_class }=>$class}sub deserial...
DBI_GOFER_SERIALIZER_BASE
$fatpacked{"DBI/Gofer/Serializer/DataDumper.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_SERIALIZER_DATADUMPER';
package DBI::Gofer::Serializer::DataDumper;use strict;use warnings;our$VERSION="0.03";use Data::Dumper;use base qw(DBI::Gofer::Serializer::Base);sub serialize {my$self=shift;local$Data::Dumper::Indent=1;local$Data::Dumper::Terse=1;local$Data::Dumpe...
DBI_GOFER_SERIALIZER_DATADUMPER
$fatpacked{"DBI/Gofer/Serializer/Storable.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_SERIALIZER_STORABLE';
package DBI::Gofer::Serializer::Storable;use strict;use warnings;use base qw(DBI::Gofer::Serializer::Base);use Storable qw(nfreeze thaw);our$VERSION="0.03";use base qw(DBI::Gofer::Serializer::Base);sub serialize {my$self=shift;local$Storable::forgi...
DBI_GOFER_SERIALIZER_STORABLE
$fatpacked{"DBI/Gofer/Transport/Base.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_TRANSPORT_BASE';
package DBI::Gofer::Transport::Base;use strict;use warnings;use DBI;use base qw(DBI::Util::_accessor);use DBI::Gofer::Serializer::Storable;use DBI::Gofer::Serializer::DataDumper;our$VERSION="0.03";__PACKAGE__->mk_accessors(qw(trace keep_meta_frozen...
DBI_GOFER_TRANSPORT_BASE
$fatpacked{"DBI/Gofer/Transport/pipeone.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_TRANSPORT_PIPEONE';
package DBI::Gofer::Transport::pipeone;use strict;use warnings;use DBI::Gofer::Execute;use base qw(DBI::Gofer::Transport::Base Exporter);our$VERSION="0.03";our@EXPORT=qw(run_one_stdio);my$executor=DBI::Gofer::Execute->new();sub run_one_stdio {binmo...
DBI_GOFER_TRANSPORT_PIPEONE
$fatpacked{"DBI/Gofer/Transport/stream.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_TRANSPORT_STREAM';
package DBI::Gofer::Transport::stream;use strict;use warnings;use DBI qw(dbi_time);use DBI::Gofer::Execute;use base qw(DBI::Gofer::Transport::pipeone Exporter);our$VERSION="0.03";our@EXPORT=qw(run_stdio_hex);my$executor=DBI::Gofer::Execute->new();s...
DBI_GOFER_TRANSPORT_STREAM
$fatpacked{"DBI/Profile.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PROFILE';
package DBI::Profile;use strict;use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);use Exporter ();use UNIVERSAL ();use Carp;use DBI qw(dbi_time dbi_profile dbi_profile_merge_nodes dbi_profile_merge);$VERSION="0.03";@ISA=qw(Exporter);@EXPORT=qw(DBIprofi...
DBI_PROFILE
$fatpacked{"DBI/ProfileData.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PROFILEDATA';
package DBI::ProfileData;use strict;our$VERSION="0.03";use Carp qw(croak);use Symbol;use Fcntl qw(:flock);use DBI::Profile qw(dbi_profile_merge);sub COUNT () {0};sub TOTAL () {1};sub FIRST () {2};sub SHORTEST () {3};sub LONGEST () {4};sub FIRST_AT ...
Count : %d
Total Time : %3.6f seconds
Longest Time : %3.6f seconds
Shortest Time : %3.6f seconds
Average Time : %3.6f seconds
END
Count : %d
Time : %3.6f seconds
END
DBI Profile Data ($self->{_profiler})
END
Total Records : %d (showing %d, sorted by %s)
Total Count : %d
Total Runtime : %3.6f seconds
END
DBI_PROFILEDATA
$fatpacked{"DBI/ProfileDumper.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PROFILEDUMPER';
package DBI::ProfileDumper;use strict;use DBI::Profile;our@ISA=("DBI::Profile");our$VERSION="0.03";use Carp qw(croak);use Fcntl qw(:flock);use Symbol;my$HAS_FLOCK=(defined$ENV{DBI_PROFILE_FLOCK})? $ENV{DBI_PROFILE_FLOCK}: do {local $@;eval {flock S...
DBI_PROFILEDUMPER
$fatpacked{"DBI/ProfileDumper/Apache.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PROFILEDUMPER_APACHE';
package DBI::ProfileDumper::Apache;use strict;our$VERSION="0.03";our@ISA=qw(DBI::ProfileDumper);use DBI::ProfileDumper;use File::Spec;my$initial_pid=$$;use constant MP2=>($ENV{MOD_PERL_API_VERSION}and $ENV{MOD_PERL_API_VERSION}==2)? 1 : 0;my$server...
DBI_PROFILEDUMPER_APACHE
$fatpacked{"DBI/ProfileSubs.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PROFILESUBS';
package DBI::ProfileSubs;our$VERSION="0.03";use strict;use warnings;sub norm_std_n3 {local $_=$_;s/\b\d+\b/<N>/g;s/\b0x[0-9A-Fa-f]+\b/<N>/g;s/'.*?'/'<S>'/g;s/".*?"/"<S>"/g;s/([a-z_]+)(\d{3,})\b/${1}<N>/ig;s!((\s*<[NS]>\s*,\s*){100,})!sprintf("$2,<r...
DBI_PROFILESUBS
$fatpacked{"DBI/ProxyServer.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PROXYSERVER';
require 5.004;use strict;use RPC::PlServer 0.2001;require DBI;require Config;package DBI::ProxyServer;use vars qw($VERSION @ISA);$VERSION="0.03";@ISA=qw(RPC::PlServer DBI);my%DEFAULT_SERVER_OPTIONS;{my$o=\%DEFAULT_SERVER_OPTIONS;$o->{'chroot'}=unde...
DBI_PROXYSERVER
$fatpacked{"DBI/PurePerl.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PUREPERL';
package DBI;use strict;use Carp;require Symbol;require utf8;*utf8::is_utf8=sub {require bytes;return unless defined $_[0];return!(length($_[0])==bytes::length($_[0]))}unless defined&utf8::is_utf8;$DBI::PurePerl=$ENV{DBI_PUREPERL}|| 1;$DBI::PurePerl...
delete $h->{CachedKids};
# ignore DESTROY for outer handle (DESTROY for inner likely to follow soon)
return if $h_inner;
# handle AutoInactiveDestroy and InactiveDestroy
$h->{InactiveDestroy} = 1
if $h->{AutoInactiveDestroy} and $$ != $h->{dbi_pp_pid};
$h->{Active} = 0
if $h->{InactiveDestroy};
# copy err/errstr/state up to driver so $DBI::err etc still work
if ($h->{err} and my $drh = $h->{Driver}) {
$drh->{$_} = $h->{$_} for ('err','errstr','state');
}
} if$method_name eq 'DESTROY';push@pre_call_frag,q{
return $h->{$_[0]} if exists $h->{$_[0]};
} if$method_name eq 'FETCH' &&!exists$ENV{DBI_TRACE};push@pre_call_frag,"return;" if IMA_STUB & $bitmask;push@pre_call_frag,q{
$method_name = pop @_;
} if IMA_FUNC_REDIRECT & $bitmask;push@pre_call_frag,q{
my $parent_dbh = $h->{Database};
} if (IMA_COPY_UP_STMT|IMA_EXECUTE)& $bitmask;push@pre_call_frag,q{
warn "No Database set for $h on $method_name!" unless $parent_dbh; # eg proxy problems
$parent_dbh->{Statement} = $h->{Statement} if $parent_dbh;
} if IMA_COPY_UP_STMT & $bitmask;push@pre_call_frag,q{
$h->{Executed} = 1;
$parent_dbh->{Executed} = 1 if $parent_dbh;
} if IMA_EXECUTE & $bitmask;push@pre_call_frag,q{
%{ $h->{CachedKids} } = () if $h->{CachedKids};
} if IMA_CLEAR_CACHED_KIDS & $bitmask;if (IMA_KEEP_ERR & $bitmask){push@pre_call_frag,q{
my $keep_error = DBI::_err_hash($h);
}}else {my$ke_init=(IMA_KEEP_ERR_SUB & $bitmask)? q{= ($h->{dbi_pp_parent}->{dbi_pp_call_depth} && DBI::_err_hash($h)) } : "";push@pre_call_frag,qq{
my \$keep_error $ke_init;
};my$clear_error_code=q{
#warn "$method_name cleared err";
$h->{err} = $DBI::err = undef;
$h->{errstr} = $DBI::errstr = undef;
$h->{state} = $DBI::state = '';
};$clear_error_code=q{
printf $DBI::tfh " !! %s: %s CLEARED by call to }.$method_name.q{ method\n".
$h->{err}, $h->{err}
if defined $h->{err} && $DBI::dbi_debug & 0xF;
}.$clear_error_code if exists$ENV{DBI_TRACE};push@pre_call_frag,($ke_init)? qq{ unless (\$keep_error) { $clear_error_code }} : $clear_error_code unless$method_name eq 'set_err'}push@pre_call_frag,q{
my $ErrCount = $h->{ErrCount};
};push@pre_call_frag,q{
if (($DBI::dbi_debug & 0xF) >= 2) {
local $^W;
mimi.fatpack view on Meta::CPAN
my $imp;
if ($method_name eq 'DESTROY') {
# during global destruction, $h->{...} can trigger "Can't call FETCH on an undef value"
# implying that tied() above lied to us, so we need to use eval
local $@; # protect $@
$imp = eval { $h->{"ImplementorClass"} } or return; # probably global destruction
}
else {
$imp = $h->{"ImplementorClass"} or do {
warn "Can't call $method_name method on handle $h after take_imp_data()\n"
if not exists $h->{Active};
return; # or, more likely, global destruction
};
}
] .join("\n",'',@pre_call_frag,'').q[
my $call_depth = $h->{'dbi_pp_call_depth'} + 1;
local ($h->{'dbi_pp_call_depth'}) = $call_depth;
my @ret;
my $sub = $imp->can($method_name);
if (!$sub and IMA_FUNC_REDIRECT & $bitmask and $sub = $imp->can('func')) {
push @_, $method_name;
}
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
Bundling in inc/ is disabled because ExtUtils::Installed could not
create a list of your installed modules. Here is the error:
$@
EUI_ERROR
Could not find a packlist for '$mod'. If it's a core module, try
force installing it from CPAN.
NO_PACKLIST
Module::Build was not found in configure_requires! Adding it now
automatically as: configure_requires => { 'Module::Build' => $ver }
EOM
Warning: ExtUtils::CBuilder not installed or no compiler detected
Proceeding with configuration, but compilation may fail during Build
EOM
$shebang
use strict;
use Cwd;
use File::Basename;
use File::Spec;
sub magic_number_matches {
return 0 unless -e '$q{magic_numfile}';
my \$FH;
open \$FH, '<','$q{magic_numfile}' or return 0;
my \$filenum = <\$FH>;
close \$FH;
return \$filenum == $magic_number;
}
my \$progname;
my \$orig_dir;
mimi.fatpack view on Meta::CPAN
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';
package Try::Tiny;use 5.006;our$VERSION='0.03';use strict;use warnings;use Exporter 5.57 'import';our@EXPORT=our@EXPORT_OK=qw(try catch finally);use Carp;$Carp::Internal{+__PACKAGE__}++;BEGIN {my$su=$INC{'Sub/Util.pm'}&& defined&Sub::Util::set_subn...
TRY_TINY
$fatpacked{"Win32/DBIODBC.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'WIN32_DBIODBC';
package Win32::ODBC;use strict;use DBI;$INC{'Win32/ODBC.pm'}=$INC{'Win32/DBIODBC.pm'}|| 1;sub new {shift;my$connect_line=shift;my$temp_connect_line;$connect_line=~/DSN=\w+/;$temp_connect_line="$&;";if ($connect_line=~/UID=\w?/){$temp_connect_line.=...
WIN32_DBIODBC
$fatpacked{"boolean.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'BOOLEAN';
use strict;use warnings;package boolean;our$VERSION='0.03';my ($true,$false);use overload '""'=>sub {${$_[0]}},'!'=>sub {${$_[0]}? $false : $true},fallback=>1;use base 'Exporter';@boolean::EXPORT=qw(true false boolean);@boolean::EXPORT_OK=qw(isTrue...
BOOLEAN
s/^ //mg for values %fatpacked;
my $class = 'FatPacked::'.(0+\%fatpacked);
no strict 'refs';
*{"${class}::files"} = sub { keys %{$_[0]} };
if ($] < 5.008) {
*{"${class}::INC"} = sub {
if (my $fat = $_[0]{$_[1]}) {
my $pos = 0;
my $last = length $fat;
return (sub {
return 0 if $pos == $last;
my $next = (1 + index $fat, "\n", $pos) || $last;
$_ .= substr $fat, $pos, $next - $pos;
$pos = $next;
return 1;
});
}
};
}
else {
*{"${class}::INC"} = sub {
if (my $fat = $_[0]{$_[1]}) {
open my $fh, '<', \$fat
or die "FatPacker error loading $_[1] (could be a perl installation issue?)";
return $fh;
}
return;
};
}
unshift @INC, bless \%fatpacked, $class;
} # END OF FATPACK CODE
use strict;
( run in 0.252 second using v1.01-cache-2.11-cpan-00829025b61 )