- or download this
eval {
$dbh->prepare( $statement, { mysql_server_prepare => 1 } )
};
if ( my $error = $@ ) { ... }
- or download this
eval {
local $SIG{__WARN__} = sub {};
$dbh->prepare( $statement, { mysql_server_prepare => 1 } )
};
if ( my $error = $@ ) { ... }
- or download this
use DBI;
use DBD::mysql 3.0002_1; # so we have have server-side prepares
use Data::Record;
...
);
return $record->records($sql);
}