File Coverage

blib/lib/Brickyard/PluginBundle/Filter.pm

Criterion	Covered	Total	%
statement	33	34	97.0
branch	6	10	60.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	49	54	90.7

use 5.010;
use warnings;
use strict;

package Brickyard::PluginBundle::Filter;
BEGIN {
  $Brickyard::PluginBundle::Filter::VERSION = '1.111750';
}

# ABSTRACT: Plugin bundle to filter another plugin bundle
use Brickyard::Accessor rw => [qw(bundle remove)];
use Role::Basic 'with';
with 'Brickyard::Role::PluginBundle';

sub bundle_config {
    my $self    = shift;
    my $package = $self->_exp($self->bundle);
    eval "require $package";
    die "Cannot require $package: $@" if $@;

    # config keys given to this plugin bundle whose name starts with a dash
    # are intended for the plugin bundle that's being filtered.
    my %args;
    while (my ($key, $value) = each %$self) {
        next unless $key =~ s/^-//;
        $args{$key} = $value;
    }
    my $bundle_config =
      $package->new(brickyard => $self->brickyard, %args)->bundle_config;
    if (my $remove = $self->remove) {
        $remove = [$remove] unless ref $remove eq 'ARRAY';
        $self->remove_from_config($bundle_config, $remove);
    }
    $bundle_config;
}

sub remove_from_config {
    my ($self, $bundle_config, $remove) = @_;
    for my $i (reverse 0 .. $#$bundle_config) {
        next unless grep { $bundle_config->[$i][1] eq $_ } @$remove;
        splice @$bundle_config, $i, 1;
    }
}
1;


__END__