File Coverage

blib/lib/Moonshine/Bootstrap/Component.pm

Criterion	Covered	Total	%
statement	44	49	89.8
branch	5	8	62.5
condition			n/a
subroutine	11	11	100.0
pod	0	1	0.0
total	60	69	86.9

package Moonshine::Bootstrap::Component;

use 5.006;
use strict;
use warnings;

use Moonshine::Element;
use Moonshine::Magic;
use Moonshine::Util qw/join_class prepend_str append_str/;
use Moonshine::Component;
use feature qw/switch/;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';

extends "Moonshine::Component";

our $VERSION = '0.02';

BEGIN {
    my %modify_spec = (
        (
            map { $_ => 0 }
              qw/row switch lead txt switch_base class_base sizing
              sizing_base alignment alignment_base active disable
              justified justified_base container/
        ),
        (
            map { $_ => { optional => 1, type => 'ARRAYREF' } }
              qw/before_element after_element children/
        ),
        (
            map {
                $_ => 0,
                  $_ . '_base'   => { default => 'col-' . $_ . '-' },
                  $_ . '_offset' => 0,
                  $_ . '_offset_base'  => { default => 'col-' . $_ . '-offset-' },
                  $_ . '_pull'      => 0,
                  $_ . '_pull_base' => { default => 'col-' . $_ . '-pull-' },
                  $_ . '_push'      => 0,
                  $_ . '_push_base' => { default => 'col-' . $_ . '-push-' },
            } qw/xs sm md/
        ),
        (
            map { $_ . '_base' => { default => $_ } }
              qw/active lead row container/
        ),
        disable_base => { default => 'disabled' },
        txt_base     => { default => 'text-' },
    );
    has(
        modifier_spec => sub {
            return \%modify_spec;
        }
    );
}

sub modify {
    my $self = shift;
    my ( $base, $build, $modify ) = @_;

    for (qw/class active justified disable row lead/) {
        if ( defined $modify->{$_} ) {
            $base->{class} = prepend_str( $modify->{ $_ . '_base' }, $base->{class} );
        }
    }

    my @grid_keys = map  { $_ }
      grep { $_ !~ m{^.*_base$}xms } sort keys %{ $self->{grid_spec} };
    for ( @grid_keys, qw/sizing alignment txt switch/ ) {
        if ( my $append_class = join_class( $modify->{ $_ . '_base' }, $modify->{$_} ) ) {
            $base->{class} = prepend_str( $append_class, $base->{class} );
        }
    }


    if ( my $container = $modify->{container} ) {
        my $cb = $modify->{container_base};
        my $container_class = ( $container =~ m/^\D/ )
          ? sprintf "%s-%s", $cb, $container
          : $cb;
        $base->{class} = prepend_str( $container_class, $base->{class} );
    }

    return $base, $build, $modify;
}

1;

__END__