Author: timbo
Date: Tue Jul 22 13:17:33 2008
New Revision: 11565
Modified:
dbi/trunk/lib/DBD/Gofer.pm
dbi/trunk/lib/DBI/Gofer/Response.pm
Log:
Minor gofer optimization.
Modified: dbi/trunk/lib/DBD/Gofer.pm
==============================================================================
--- dbi/trunk/lib/DBD/Gofer.pm (original)
+++ dbi/trunk/lib/DBD/Gofer.pm Tue Jul 22 13:17:33 2008
@@ -91,11 +91,12 @@
sub set_err_from_response { # set error/warn/info and propagate warnings
- my ($h, $response) = @_;
+ my $h = shift;
+ my $response = shift;
if (my $warnings = $response->warnings) {
warn $_ for @$warnings;
}
- return $h->set_err($response->err, $response->errstr,
$response->state);
+ return $h->set_err($response->err_errstr_state);
}
Modified: dbi/trunk/lib/DBI/Gofer/Response.pm
==============================================================================
--- dbi/trunk/lib/DBI/Gofer/Response.pm (original)
+++ dbi/trunk/lib/DBI/Gofer/Response.pm Tue Jul 22 13:17:33 2008
@@ -46,6 +46,10 @@
}
+sub err_errstr_state {
+ my $self = shift;
+ return @{$self}{qw(err errstr state)};
+}
sub executed_flag_set {
my $flags = shift->flags
