On 6/7/06, Graeme McLaren <[EMAIL PROTECTED]> wrote:
Hi there, thanks for your reply, here is my constructor:
sub new{
my ($class) = @_;
my $self = {
_table => undef,
_id => undef, # this refers to the column named
"pkey_updated_record" in the log table
_dbh => undef,
};
bless $self, $class;
return $self;
}
as far as I know this is decent enough.
What do you get when you inserting "print ref $log;" at this point of your code
my $log = em_log->new;
print ref $log; # <= HERE
$log->dbh($dbh);
"em_log" is expected. And, by chance, are you using
use strict;
use warnings;
It helps a lot to find many programming errors.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
