File Coverage

blib/lib/Text/Keywords.pm

Criterion	Covered	Total	%
statement	5	14	35.7
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	8	21	38.1

package Text::Keywords;
BEGIN {
  $Text::Keywords::AUTHORITY = 'cpan:GETTY';
}
BEGIN {
  $Text::Keywords::VERSION = '0.900';
}
# ABSTRACT: Setup Text::Keywords::Container for analyzing some text

use Moo;

has containers => (
	is => 'rw',
	default => sub {[]},
);

sub from {
	my ( $self, $primary, $secondary ) = @_;

	my @founds;

	for (@{$self->containers}) {
		push @founds, $_->find_keywords($primary, $secondary);
	}

	@founds = $self->modify_founds(@founds);

	return @founds;
}

sub modify_founds {
	my ( $self, @founds ) = @_;
	return @founds;
}

1;

__END__