The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Test::Smoke::Database::DB - Interface for smoke database

SYNOPSIS

  my $a = new Test::Smoke::Database;
  $a->db->rundb("SQL request");

DESCRIPTION

This module give all mysql method for manipulate smoke database

SEE ALSO

admin_smokedb, Test::Smoke::Database, http://www.alianwebserver.com/perl/smoke/smoke_db.cgi

METHODS

new hash reference

Construct a new Test::Smoke::Database object and return it. This call too connect method of DBD::Mysql and store dbh in $self->{DBH} except if key no_dbconnect is found in hash reference. Disconnect method is auto called with DESTROY call if needed.

rundb SQL request

This will do like $dbh->do, but several request can be put in SQL request, separated by ';'. Return 1 on sucess, 0 if one of request failed. If failed, reason is printed on STDERR.

Private methods

read_all

VERSION

$Revision: 1.10 $

AUTHOR

Alain BARBET with some help from Abe Timmerman