package DBD::stdout; # this is just DBD::NullP, except that it prints the statements require DBD::NullP; @ISA = qw{DBD::NullP}; package DBD::stdout::dr; $imp_data_size = 0; @ISA = qw{DBD::NullP::dr}; package DBD::stdout::db; $imp_data_size = 0; @ISA = qw{DBD::NullP::db}; package DBD::stdout::st; $imp_data_size = 0; @ISA = qw{DBD::NullP::st}; use Data::Dumper; sub execute { my $sth = shift; $sth = $sth->{'Statement'}; $sth =~ s/\?/\%s/g; $sth =~ s/\;?\s*$/\;\n/; printf $sth, @_; } 1;