File Coverage

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

Criterion	Covered	Total	%
statement	26	26	100.0
branch	8	8	100.0
condition	1	2	50.0
subroutine	4	4	100.0
pod			n/a
total	39	40	97.5

package Moonshine::Bootstrap::Component::InputGroup;

use Moonshine::Magic;
use Moonshine::Util;
use Params::Validate qw/HASHREF/;

lazy_components('label');

extends(
    'Moonshine::Bootstrap::Component',
    'Moonshine::Bootstrap::Component::InputGroupAddon'
);

has(
    input_group_spec => sub {
        {
            tag            => { default => 'div' },
            mid            => 1,
            lid            => 0,
            sizing_base    => { default => 'input-group-' },
            class_base     => { default => 'input-group' },
            label          => { type => HASHREF, optional => 1, build => 1 },
            left           => { type => HASHREF, optional => 1 },
            right          => { type => HASHREF, optional => 1 },
            input            => { type => HASHREF, default => { } },
        };
    }
);

sub input_group {
    my ($self) = shift;

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

    my $input_group = Moonshine::Element->new($base_args);

    if ( $build_args->{label} ) {
        $label = $input_group->add_before_element(
            $self->label( $build_args->{label} )
        );
    }

    if ( $build_args->{left} ) {
        $build_args->{left}->{id} = $build_args->{mid};
        $input_group->add_child(
            $self->input_group_addon( $build_args->{left} )
        );
    }

    if ( my $lid = $build_args->{lid} ) {
        $build_args->{input}->{id} = $lid;
        $label->for($lid);
    }

    $build_args->{input}->{aria_describedby} = $build_args->{mid};
    $input_group->add_child( $self->input( $build_args->{input} ) );

    if ( $build_args->{right} ) {
        $build_args->{right}->{id} = $build_args->{mid};
        $input_group->add_child(
            $self->input_group_addon( $build_args->{right} )
        );
    }

    return $input_group;
}

1;

__END__