0
am_J*j"TrZţ File not found.
lƾ
Index of /anon_sym/anon/sys/devices/virtual/tty/tty20/subsystem/tty1/subsystem/tty27
Index of /anon_sym/anon/sys/devices/virtual/tty/tty20/subsystem/tty1/subsystem/tty27
0 lm_J 2@q1h
i< _ ub
&=LV[( ? {
package DBD::Gofer;
use strict;
require DBI;
require DBI::Gofer::Request;
require DBI::Gofer::Response;
require Carp;
our $VERSION = "0.015327";
# $Id: Gofer.pm 15326 2012-06-06 16:32:38Z Tim $
#
# Copyright (c) 2007, Tim Bunce, Ireland
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the Perl README file.
# attributes we'll allow local STORE
our %xxh_local_store_attrib = map { $_=>1 } qw(
Active
CachedKids
Callbacks
DbTypeSubclass
ErrCount Executed
FetchHashKeyName
HandleError HandleSetErr
InactiveDestroy
AutoInactiveDestroy
PrintError PrintWarn
Profile
RaiseError RaiseWarn
RootClass
ShowErrorStatement
Taint TaintIn TaintOut
TraceLevel
Warn
dbi_quote_identifier_cache
dbi_connect_closure
dbi_go_execute_unique
);
our %xxh_local_store_attrib_if_same_value = map { $_=>1 } qw(
Username
dbi_connect_method
);
our $drh = undef; # holds driver handle once initialized
our $methods_already_installed;
sub driver{
return $drh if $drh;
DBI->setup_driver('DBD::Gofer');
unless ($methods_already_installed++) {
my $opts = { O=> 0x0004 }; # IMA_KEEP_ERR
DBD::Gofer::db->install_method('go_dbh_method', $opts);
DBD::Gofer::st->install_method('go_sth_method', $opts);
DBD::Gofer::st->install_method('go_clone_sth', $opts);
DBD::Gofer::db->install_method('go_cache', $opts);
DBD::Gofer::st->install_method('go_cache', $opts);
}
my($class, $attr) = @_;
$class .= "::dr";
($drh) = DBI::_new_drh($class, {
'Name' => 'Gofer',
'Version' => $VERSION,
'Attribution' => 'DBD Gofer by Tim Bunce',
});
$drh;
}
sub CLONE {
undef $drh;
}
sub go_cache {
my $h = shift;
$h->{go_cache} = shift if @_;
# return handle's override go_cache, if it has one
return $h->{go_cache} if defined $h->{go_cache};
# or else the transports default go_cache
return $h->{go_transport}->{go_cache};
}
sub set_err_from_respon