view release on metacpan or  search on metacpan

mimi.fatpack  view on Meta::CPAN

              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';