has_field 'foo' => ( default_over_obj => 'default_foo' );
has_field 'bar' => ( default_over_obj => '' );
has_field 'bax' => ( default_over_obj => 'default_bax' );
}
# test that the 'default_over_obj' type defaults override an init_values/model
$form = Test::DefaultsX->new;
$form->process( init_values => $init_obj, params => {} );
is( $form->field('foo')->default_over_obj, 'default_foo', 'foo correct' );
is_deeply( $form->fif, $cmp_fif, 'fif uses defaults overriding object' );
1 POD Error
The following errors were encountered while parsing the POD:
- Around line 37:
Unknown directive: =comment