App-mimi
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
$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
$fatpacked{"DBD/Sponge.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_SPONGE';
use strict;{package DBD::Sponge;require DBI;require Carp;our@EXPORT=qw();our$VERSION="0.03";our$drh=undef;my$methods_already_installed;sub driver{return$drh if$drh;DBD::Sponge::db->install_method("sponge_test_installed_method")unless$methods_alread...
DBD_SPONGE
$fatpacked{"DBI.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI';
package DBI;require 5.008_001;BEGIN {our$XS_VERSION=our$VERSION="0.03";$VERSION=eval$VERSION}use Carp();use DynaLoader ();use Exporter ();BEGIN {@ISA=qw(Exporter DynaLoader);@EXPORT=();@EXPORT_OK=qw(%DBI %DBI_methods hash);%EXPORT_TAGS=(sql_types=>...
DBI::_firesafe; # just in case
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};
mimi.fatpack view on Meta::CPAN
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;
return [ \@\$DBD::${driver}::TypeInfo::type_info_all ];
}
# Transfer this to lib/DBD/${driver}/TypeInfo.pm.
# Don't forget to add version and intellectual property control information.
# The \%type_info_all hash was automatically generated by
# DBI::DBD::Metadata::write_typeinfo_pm v$DBI::DBD::Metadata::VERSION.
package DBD::${driver}::TypeInfo;
{
require Exporter;
require DynaLoader;
\@ISA = qw(Exporter DynaLoader);
\@EXPORT = qw(type_info_all);
use DBI qw(:sql_types);
PERL
DBI_DBD_METADATA
$fatpacked{"DBI/DBD/SqlEngine.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_DBD_SQLENGINE';
require 5.008;use strict;use DBI ();require DBI::SQL::Nano;package DBI::DBD::SqlEngine;use strict;use Carp;use vars qw(@ISA $VERSION $drh %methods_installed);$VERSION="0.03";$drh=undef;DBI->setup_driver("DBI::DBD::SqlEngine");my%accessors=(versions...
sub %s::%s
{
my $func = %s->can (q{%s});
goto &$func;
}
EOI
DBI_DBD_SQLENGINE
$fatpacked{"DBI/Gofer/Execute.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_EXECUTE';
package DBI::Gofer::Execute;use strict;use warnings;use Carp;use DBI qw(dbi_time);use DBI::Gofer::Request;use DBI::Gofer::Response;use base qw(DBI::Util::_accessor);our$VERSION="0.03";our@all_dbh_methods=sort map {keys %$_}$DBI::DBI_methods{db},$DB...
DBI_GOFER_EXECUTE
$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;
my $args = join " ", map { DBI::neat($_) } ($h, @_);
printf $DBI::tfh " > $method_name in $imp ($args) [$@]\n";
}
} if exists$ENV{DBI_TRACE};push@pre_call_frag,q{
$h->{'dbi_pp_last_method'} = $method_name;
} unless exists$DBI::last_method_except{$method_name};my@post_call_frag;push@post_call_frag,q{
if (my $trace_level = ($DBI::dbi_debug & 0xF)) {
if ($h->{err}) {
printf $DBI::tfh " !! ERROR: %s %s\n", $h->{err}, $h->{errstr};
}
my $ret = join " ", map { DBI::neat($_) } @ret;
my $msg = " < $method_name= $ret";
( run in 1.611 second using v1.01-cache-2.11-cpan-39bf76dae61 )