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: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/
