view release on metacpan or  search on metacpan

mimi.fatpack  view on Meta::CPAN

$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";
  	    $msg = ($trace_level >= 2) ? Carp::shortmess($msg) : "$msg\n";
  	    print $DBI::tfh $msg;
  	}
      } if exists$ENV{DBI_TRACE};push@post_call_frag,q{
  	$h->{Executed} = 0;
  	if ($h->{BegunWork}) {
  	    $h->{BegunWork}  = 0;
  	    $h->{AutoCommit} = 1;
  	}
      } if IMA_END_WORK & $bitmask;push@post_call_frag,q{
          if ( ref $ret[0] and
              UNIVERSAL::isa($ret[0], 'DBI::_::common') and
              defined( (my $h_new = tied(%{$ret[0]})||$ret[0])->{err} )
          ) {
              # copy up info/warn to drh so PrintWarn on connect is triggered
              $h->set_err($h_new->{err}, $h_new->{errstr}, $h_new->{state})
          }
      } if IMA_IS_FACTORY & $bitmask;push@post_call_frag,q{
          if ($keep_error) {
              $keep_error = 0
                  if $h->{ErrCount} > $ErrCount
                  or DBI::_err_hash($h) ne $keep_error;
          }
  
  	$DBI::err    = $h->{err};
  	$DBI::errstr = $h->{errstr};
  	$DBI::state  = $h->{state};
  

mimi.fatpack  view on Meta::CPAN

  	    $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

mimi.fatpack  view on Meta::CPAN

$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