view release on metacpan or  search on metacpan

mimi.fatpack  view on Meta::CPAN

$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];
          }

t/lib/TestDB.pm  view on Meta::CPAN

use warnings;

use DBI;

sub setup {
    my $self = shift;

    my $dbh = DBI->connect('dbi:SQLite::memory:', '', '', {RaiseError => 1});
    die $DBI::errorstr unless $dbh;

    $dbh->do("PRAGMA default_synchronous = OFF");
    $dbh->do("PRAGMA temp_store = MEMORY");

    return $dbh;
}

1;