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