=item setup_database
+=item fetch_objects
+
=back
=head1 Additional Commands
return $r->config->loader->_table2class($table);
}
+sub fetch_objects {
+ my ($class,$r)=@_;
+ my @pcs = $class->primary_columns;
+ if ( $#pcs ) {
+ my %pks;
+ @pks{@pcs}=(@{$r->{args}});
+ return $class->retrieve( %pks );
+ }
+ return $class->retrieve( %$r->{args}->[0] );
+}
+
1;