File Coverage

blib/lib/Search/InvertedIndex/Simple.pm

Criterion	Covered	Total	%
statement	42	46	91.3
branch	5	8	62.5
condition	1	3	33.3
subroutine	7	8	87.5
pod	0	2	0.0
total	55	67	82.0

package Search::InvertedIndex::Simple;

# Name:
#	Search::InvertedIndex::Simple.
#
# Documentation:
#	POD-style documentation is at the end. Extract it with pod2html.*.
#
# Reference:
#	Object Oriented Perl
#	Damian Conway
#	Manning
#	1-884777-79-1
#	P 114
#
# Note:
#	o Tab = 4 spaces || die.
#
# Author:
#	Ron Savage
#	Home page: http://savage.net.au/index.html
#
# Licence:
#	Australian copyright (c) 1999-2002 Ron Savage.
#
#	All Programs of mine are 'OSI Certified Open Source Software';
#	you can redistribute them and/or modify them under the terms of
#	The Artistic License, a copy of which is available at:
#	http://www.opensource.org/licenses/index.html

use strict;
use warnings;
no warnings 'redefine';

require 5.005_62;

use Set::Array;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Search::InvertedIndex::Simple ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

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

our @EXPORT = qw(

);
our $VERSION = '1.04';

# -----------------------------------------------

# Encapsulated class data.

{
	my(%_attr_data) =
	(	# Alphabetical order.
		_dataset	=> [],
		_keyset		=> [],
	);

	sub _default_for
	{
		my($self, $attr_name) = @_;

		$_attr_data{$attr_name};
	}

	sub _standard_keys
	{
		sort keys %_attr_data;
	}

}	# End of Encapsulated class data.

# -----------------------------------------------

sub build_index
{
	my($self) = @_;

	my($i, $data, $key, $value, $offset, $prefix, %index);

	for $i (0 .. $#{$$self{'_dataset'} })
	{
		$data = $$self{'_dataset'}[$i];

		for $key (@{$$self{'_keyset'} })
		{
			$value			= $$data{$key};
			$index{$key}	= {} if (! $index{$key});

			for $offset (1 .. length $value)
			{
				$prefix					= substr($value, 0, $offset);
				$index{$key}{$prefix}	= [] if (! $index{$key}{$prefix});

				push @{$index{$key}{$prefix} }, $i;
			}
		}
	}

	for $key (keys %index)
	{
		for $prefix (keys %{$index{$key} })
		{
			$index{$key}{$prefix} = Set::Array -> new(@{$index{$key}{$prefix} });
		}
	}

	\%index;

}	# End of build_index.

# -----------------------------------------------

sub new
{
	my($caller, %arg)	= @_;
	my($caller_is_obj)	= ref($caller);
	my($class)			= $caller_is_obj || $caller;
	my($self)			= bless({}, $class);

	for my $attr_name ($self -> _standard_keys() )
	{
		my($arg_name) = $attr_name =~ /^_(.*)/;

		if (exists($arg{$arg_name}) )
		{
			$$self{$attr_name} = $arg{$arg_name};
		}
		elsif ($caller_is_obj)
		{
			$$self{$attr_name} = $$caller{$attr_name};
		}
		else
		{
			$$self{$attr_name} = $self -> _default_for($attr_name);
		}
	}

	$self;

}	# End of new.

# -----------------------------------------------

1;

__END__