File Coverage

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

Criterion	Covered	Total	%
statement	10	10	100.0
branch	4	4	100.0
condition	1	2	50.0
subroutine	2	2	100.0
pod			n/a
total	17	18	94.4

package Moonshine::Bootstrap::Component::DropdownButton;

use Moonshine::Magic;

extends(
    'Moonshine::Bootstrap::Component',
    'Moonshine::Bootstrap::Component::Caret',
    'Moonshine::Bootstrap::Component::Button'
);

has(
    dropdown_button_spec => sub {
        {
            switch     => { default => 'default', base => 1 },
            class_base => { default => 'dropdown-toggle' },
            id         => 1,
            split      => 0,
            data_toggle   => { default => 'dropdown' },
            aria_haspopup => { default => 'true' },
            aria_expanded => { default => 'true' },
            data          => 1,
        };
    }
);

sub dropdown_button {
    my ($self) = shift;

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

    $build_args->{data} = delete $base_args->{data}
      if $build_args->{split};

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

    $button->add_before_element(
        $self->button(
            { data => $build_args->{data}, class => $base_args->{class} }
        )
    ) if $build_args->{split};

    $button->add_child( $self->caret );
    return $button;
}

1;

__END__