maybe something like ......
my $columns = $result->result_source->columns_info;
my %default_form_spec;
for my $name (keys %{$columns}){
if (my $default = $columns->{$name}->{default_value}) {
$default_form_spec{ $name } = $default;
}
}
_______________________________________________ List: [email protected] Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst Searchable archive: http://www.mail-archive.com/[email protected]/ Dev site: http://dev.catalyst.perl.org/
