--- lib/A3C/SQL.pm 2008/05/31 16:30:09 145 +++ lib/A3C/SQL.pm 2008/06/15 14:40:50 159 @@ -79,10 +79,26 @@ return $self->sth->rows; } +=head1 HELPERS + +This helpers are accessor to L + +=head2 _column_names + + my @columns = $sql->_column_names; + +=cut + +sub _column_names { + my $self = shift; + return @{ $self->sth->{NAME} }; +} + package A3C::SQL::row; use Encode qw/decode/; use Data::Dump qw/dump/; +use base qw/Jifty::Object/; our $AUTOLOAD; @@ -99,7 +115,7 @@ my $type = ref($self) or die "$self is not an object"; my $name = $AUTOLOAD; $name =~ s/.*://; -# warn "SQL: $name doesn't exist" unless defined($self->{$name}); + Jifty->log->error("SQL: $name doesn't exist") unless defined($self->{$name}); return decode('UTF-8', $self->{$name}); }