I sincerely apologise for posting such a simple issue, but (presumably as a
result of premature senility or insufficient sleep) I cannot see the
solution to this simple problem:
use strict;
use warnings;
package Trendex::MyDBI;
use base 'Class::DBI::mysql';
{
__PACKAGE__->set_db('Main', 'dbi:mysql:test', 'user', 'pswd',
{AutoCommit=>0});
}
package Trendex::Consumer;
use base 'Trendex::MyDBI';
{
__PACKAGE__->set_up_table('Consumer');
}
package showError;
use base 'Trendex::Consumer';
{
__PACKAGE__->set( LASTNAME => 'Smith' );
}
results in the error
Can't use string ("showError") as a HASH ref while "strict refs" in use at
E:/Perl/site/lib/Class/DBI.pm line 466
(This is Class::DBI 3.0.14 and the line that triggers the error is
for my $col (keys %$vals) { $self->{__Changed}{$col}++; } )
What is the simple solution?
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
