Help for this page

Select Code to Download


  1. or download this
    eval {
        $dbh->prepare( $statement, { mysql_server_prepare => 1 } ) 
    };
    if ( my $error = $@ ) { ... }
    
  2. or download this
    eval {
        local $SIG{__WARN__} = sub {};
        $dbh->prepare( $statement, { mysql_server_prepare => 1 } ) 
    };
    if ( my $error = $@ ) { ... }
    
  3. 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);
    }