On line 70 of the code, in the _init sub, you use the term "PrintWarm" it should be "PrintWarn".
Around here:
sub _init {
my $self = shift;
my $dsn = shift;
my $driver = shift;
my $userid = shift;
my $passwd = shift;
eval {
$self->{dbh} =
DBI->connect( "dbi:$driver:$dsn", $userid, $passwd,
{ PrintWarm => 0, PrintError => 1 } );
}
or $@ && Carp::croak $@;
if ( !$self->{dbh} ) {
return ();
}
else {
$self->{dbh}->{PrintError} = 0;
}
1;
}
Other than this minor thing the code seems to work great!
Thanks.
----------------------------------------------------------------
Randall Petras
QVC
This message (including any attachments) contains confidential information intended for a specific individual and purpose, and is protected by law. If you are not the intended recipient of this e-mail (even if the e-mail address above is yours), (i) you may not use, copy or retransmit it, (ii) please delete this message and (iii) please notify the sender immediately. Any disclosure, copying, or distribution of this message or the taking of any action based on it, is strictly prohibited.
