view release on metacpan or  search on metacpan

mimi.fatpack  view on Meta::CPAN

  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