view release on metacpan or  search on metacpan

lib/Data/MuForm.pm  view on Meta::CPAN

sub build_renderer {
    my $self = shift;
    my $renderer_class = load_optional_class($self->renderer_class) ? $self->renderer_class : 'Data::MuForm::Renderer::Base';
    my $renderer = $renderer_class->new(
        localizer => $self->localizer,
        form => $self->form,
        %{$self->renderer_args},
    );
    return $renderer;
}
has 'renderer_args' => ( is => 'ro', isa => HashRef, builder => 'build_renderer_args' );
sub build_renderer_args {{}}
has 'render_args' => ( is => 'rw', lazy => 1, isa => HashRef, builder => 'build_render_args' );
sub build_render_args {{}}
sub base_render_args {
  my $self = shift;
  my $args = {
    name => $self->name,
    id => $self->name,
    form_errors => $self->form_errors || [],
    form_attr => {

t/field_setup/init_object.t  view on Meta::CPAN

            4 => 'Four',
        ]
    }
    has_field 'bar';
}

{
    package FooObject;
    use Moo;
    use Types::Standard -types;
    has 'foo' => ( is => 'ro', isa => ArrayRef );
    has 'bar' => ( is => 'ro', isa => Str );
}

my $form = MyApp::Form::Test->new;
ok( $form );

# try with hashref
my $init_obj = {
    foo => [1],
    bar => 'my_test',