--- trunk/lib/Frey/SQL.pm 2008/11/17 15:24:24 371 +++ trunk/lib/Frey/SQL.pm 2008/11/17 15:42:41 374 @@ -12,6 +12,7 @@ isa => 'Str', required => 1, default => 'select * from sponge', + documentation => 'SQL query to filter data', ); has table => ( @@ -19,6 +20,7 @@ isa => 'Str', required => 1, default => 'sponge', + documentation => 'Name of table to create from sponge data', ); has 'sponge' => ( @@ -35,8 +37,6 @@ my $dbh=DBI->connect('dbi:AnyData(RaiseError=>1):'); - - my $data = $self->sponge->{rows}; unshift @$data, $self->sponge->{NAME};