File Coverage

blib/lib/DDG/Block/Regexp.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch	1	2	50.0
condition			n/a
subroutine	2	2	100.0
pod	1	1	100.0
total	15	16	93.7

package DDG::Block::Regexp;
our $AUTHORITY = 'cpan:DDG';
# ABSTRACT: Block implementation to handle regexp based plugins
$DDG::Block::Regexp::VERSION = '1016';
use Moo;
with qw( DDG::Block );


sub parse_trigger {
	my ( $self, $triggers ) = @_;
	for my $key (keys %{$triggers}) {
		my @triggers = map {
			ref $_ eq 'Regexp' ? $_ : qr{$_};
		} @{$triggers->{$key}};
		$triggers->{$key} = \@triggers;
	}
	return $triggers;
}

sub request {
	my ( $self, $request ) = @_;
	my @results;
	for (@{$self->plugin_objs}) {
		my $triggers = $_->[0];
		my $plugin = $_->[1];
		for my $trigger (@{$triggers}) {
			for my $attr (keys %{$trigger}) {
				for (@{$trigger->{$attr}}) {
					if ( my @matches = $request->$attr =~ m/$_/ ) {
						push @results, $self->handle_request_matches($plugin,$request,@matches);
						return @results if $self->return_one && @results;
					} else {
						$self->trace("No match with",ref $plugin);
					}
				}
			}
		}
	}
	return @results;
}

1;

__END__