71 |
my $self = shift; |
my $self = shift; |
72 |
my $row = $self->sth->fetchrow_hashref; |
my $row = $self->sth->fetchrow_hashref; |
73 |
return unless defined $row; |
return unless defined $row; |
74 |
|
# $self->log->debug( dump( $row ) ); |
75 |
return A3C::SQL::row->new( $row, $self->encoding ); |
return A3C::SQL::row->new( $row, $self->encoding ); |
76 |
} |
} |
77 |
|
|
121 |
sub AUTOLOAD { |
sub AUTOLOAD { |
122 |
my $self = shift; |
my $self = shift; |
123 |
my $type = ref($self) or die "$self is not an object"; |
my $type = ref($self) or die "$self is not an object"; |
124 |
my $name = $AUTOLOAD; |
my $name = lc($AUTOLOAD); # DBI lowercase columns so we do same for accessors |
125 |
$name =~ s/.*://; |
$name =~ s/.*://; |
126 |
my $v = $self->{$name}; |
my $v = $self->{$name}; |
127 |
Jifty->log->error("SQL: $name doesn't exist") unless defined $v; |
Jifty->log->error("SQL: $name doesn't exist") unless defined $v; |