File Coverage

blib/lib/E2/Search.pm

Criterion	Covered	Total	%
statement	15	38	39.4
branch	0	8	0.0
condition	0	11	0.0
subroutine	5	10	50.0
pod	2	2	100.0
total	22	69	31.8

# E2::Search
# Jose M. Weeks
# 05 June 2003
#
# See bottom for pod documentation.

package E2::Search;

use 5.006;
use strict;
use warnings;
use Carp;

use E2::Ticker;

our $VERSION = "0.32";
our @ISA = qw(E2::Ticker);
our $DEBUG; *DEBUG = *E2::Interface::DEBUG;

sub new {
	my $arg   = shift;
	my $class = ref( $arg ) || $arg;
	my $self  = $class->SUPER::new();

	bless ($self, $class);

	return $self;
}

sub search {
	my $self = shift or croak "Usage: search E2SEARCH, KEYWORDS [, NODETYPE ] [, MAX_RESULTS ]";
	my $keywords = shift or croak "Usage: search E2SEARCH, KEYWORDS [, NODETYPE ] [, MAX_RESULTS ]";
	my $nodetype = shift || 'e2node';
	my $max_results = shift;

	my @results;

	warn "E2::Search::search\n"	if $DEBUG > 1;

	my %opt = (
		keywords => $keywords,
		nodetype => $nodetype
	);

	my $handlers = {
		'searchinfo/keywords' => sub {
			(my $a, my $b) = @_;
			$self->{keywords} = $b->text;
		},
		'searchinfo/search_nodetype' => sub {
			(my $a, my $b) = @_;
			$self->{searchtype} = $b->text;
		},
		'searchresults/e2link' => sub {
			(my $a, my $b) = @_;
			if( !$self->{max_results} ||
			    !$self->{results} ||
			    $self->{max_results} > @results ) {

				push @results, {
					title => $b->text,
					node_id =>$b->{att}->{node_id}
				};
			}
		}
	};


	$self->{keywords} = undef;
	$self->{searchtype} = undef;

	return $self->parse( 'search', $handlers, \@results, %opt );
}

1;
__END__