File Coverage

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

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition	1	2	50.0
subroutine	4	4	100.0
pod			n/a
total	26	27	96.3

package Moonshine::Bootstrap::Component::Dropdown;

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

extends(
    'Moonshine::Bootstrap::Component',
    'Moonshine::Bootstrap::Component::DropdownButton',
    'Moonshine::Bootstrap::Component::DropdownUl',
);

has(
    dropdown_spec => sub {
        {
            tag    => { default => 'div' },
            dropup => 0,
            button => { type    => HASHREF },
            ul     => { type    => HASHREF },
            mid    => { type    => SCALAR },
        };
    }
);

sub dropdown {
    my ($self) = shift;

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

    my $drop_class = $build_args->{dropup} ? 'dropup' : 'dropdown';
    $base_args->{class} = append_str( $drop_class, $base_args->{class} );

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

    $base_element->add_child(
        $self->dropdown_button(
            { %{ $build_args->{button} }, id => $build_args->{mid} }
        )
    );

    $base_element->add_child(
        $self->dropdown_ul(
            {
                %{ $build_args->{ul} }, aria_labelledby => $build_args->{mid}
            }
        )
    );

    return $base_element;
}

1;

__END__