File Coverage

blib/lib/Moonshine/Bootstrap/Component/NavbarForm.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch	3	4	75.0
condition	1	2	50.0
subroutine	4	4	100.0
pod			n/a
total	29	32	90.6

package Moonshine::Bootstrap::Component::NavbarForm;

use Moonshine::Magic;
use Params::Validate qw/ARRAYREF/;

use Switch::Back;

lazy_components qw/form/;

extends (
    'Moonshine::Bootstrap::Component',
    'Moonshine::Bootstrap::Component::SubmitButton',
    'Moonshine::Bootstrap::Component::FormGroup',
);

has(
    navbar_form_spec => sub {
        {
               alignment_base => { default => 'navbar-' },
            class_base     => { default => 'navbar-form' },
            role           => 0,
            fields         => {
                type  => ARRAYREF,
                build => 1,
            }
        };
    }
);

sub navbar_form {
    my ($self) = shift;

    my ( $base_args, $build_args ) = $self->validate_build(
        {
            params => $_[0] // {},
            spec => $self->navbar_form_spec,
        }
    );

    my $form = $self->form($base_args);

    for my $field ( @{ $build_args->{fields} } ) {
        given ( delete $field->{field_type} ) {
            when ('submit_button') {
                $form->add_child( $self->submit_button( $field ) );
            }
            when ('form_group') {
                $form->add_child( $self->form_group($field) );
            }
        }
    }

    return $form
}

1;

__END__