File Coverage

blib/lib/Algorithm/AhoCorasick.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	10	10	100.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	47	47	100.0

package Algorithm::AhoCorasick;

use warnings;
use strict;

use Algorithm::AhoCorasick::SearchMachine;

require Exporter;

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw(
				   find_first
				   find_all
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our $VERSION = '0.03';

sub find_first {
    my $text = shift;

    my $m = Algorithm::AhoCorasick::SearchMachine->new(@_);
    my $rv = $m->feed($text, sub { [ @_ ]; });
    if (wantarray) {
	return $rv ? @$rv : ();
    } else {
	return $rv ? $rv : undef;
    }
}

sub find_all {
    my $text = shift;

    my $m = Algorithm::AhoCorasick::SearchMachine->new(@_);

    my %total;
    my $handle_all = sub {
	my ($pos, $keyword) = @_;

	if (!exists($total{$pos})) {
	    $total{$pos} = [ ];
	}

	push @{$total{$pos}}, $keyword;

	undef;
    };

    $m->feed($text, $handle_all);

    return keys(%total) ? \%total : undef;
}

1;

__END__