File Coverage

blib/lib/DDG/Block/Blockable/Triggers.pm

Criterion	Covered	Total	%
statement	38	40	95.0
branch	22	28	78.5
condition	5	6	83.3
subroutine	5	5	100.0
pod	0	3	0.0
total	70	82	85.3

package DDG::Block::Blockable::Triggers;
our $AUTHORITY = 'cpan:DDG';
# ABSTRACT: A package which reflects the triggers of a blockable plugin.
$DDG::Block::Blockable::Triggers::VERSION = '1017';
use Moo;
use Carp;

our @words_types = qw(

	start
	end
	startend
	any

);

our @regexp_types = qw(

	query_raw
	query
	query_lc
	query_nowhitespace
	query_nowhitespace_nodash
	query_clean

);

our $default_regexp_type = 'query_raw';

has triggers => (
	is => 'ro',
	default => sub {{}},
);

has block_type => (
	is => 'rw',
	predicate => 'has_block_type',
);

sub get { shift->triggers }

sub add {
	my ( $self, @args ) = @_;
	my %params;
	if (ref $args[0] eq 'CODE') {
		%params = $args[0]->();
	} elsif (ref $args[0] eq 'HASH') {
		%params = %{$args[0]};
	} elsif (ref $args[0] eq 'Regexp') {
		%params = ( $default_regexp_type => [@args] );
	} else {
		if (scalar @args > 2) {
			%params = ( $args[0] => [@args[1..(scalar @args-1)]] );
		} else {
			%params = ( $args[0] => $args[1] );
		}
	}
	for (keys %params) {
		my $trigger_type = $_;
		my @triggers = ref $params{$trigger_type} eq 'ARRAY' ? @{$params{$trigger_type}} : ($params{$trigger_type});
		croak 'no trigger values given' unless @triggers;
		$self->add_triggers($trigger_type, @triggers);
	}
}

sub add_triggers {
	my ( $self, $trigger_type, @add_triggers ) = @_;
	my @triggers;
	for (@add_triggers) {
		push @triggers, ref $_ eq 'CODE' ? $_->() : $_;
	}
	if (grep { $_ eq $trigger_type } @words_types) {
		croak "You can't add trigger types of the other block-type" if $self->has_block_type && $self->block_type ne 'Words';
		$self->block_type('Words');
	} elsif (grep { $_ eq $trigger_type } @regexp_types) {
		croak "You can't add trigger types of the other block-type" if $self->has_block_type && $self->block_type ne 'Regexp';
		$self->block_type('Regexp');
		for (@triggers) {
			croak 'You may only give compiled regexps to regexp trigger types (like qr/reverse (.*)/i)' unless ref $_ eq 'Regexp';
		}
	}
	croak "your trigger_type '".$trigger_type."' is unknown" unless $self->has_block_type;
	$self->triggers->{$_} = [] unless defined $self->triggers->{$_};
	push @{$self->triggers->{$_}}, @triggers;
}

1;

__END__