File Coverage

blib/lib/Hash/Search.pm

Criterion	Covered	Total	%
statement	29	34	85.2
branch	6	8	75.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	4	0.0
total	43	56	76.7

package Hash::Search;

use strict;
use warnings;
use Carp;

require Exporter;

our @ISA = qw(Exporter);

our $VERSION = '0.03';

my %hash_search_result = ();
my $hash_search_result_count = 0;

sub new{

	# new: create a new instance of

	my $class = shift;
	my $self = {};

	return bless($self, $class);

}

sub hash_search{

	# hash_search: Find matches of names using the regular expression
	# and hash given.

	my $class = shift;
	my ($passed_hash, %passed_hash);
	my $passed_expression;
	my $regex_test = "";

	$passed_expression = shift;
	(%passed_hash) = @_;

	# Check if the hash or the expression passed is blank and
	# write a carp message if blank.

	if (!%passed_hash){
		carp("The hash given is blank");
		return;
	}

	if (!$passed_expression || $passed_expression eq ""){
		carp("The expression given is blank");
		return;
	}

	# Process the hash given putting the results into a
	# seperate hash while increment the search result
	# counter.

	%hash_search_result = ();
	$hash_search_result_count = 0;

	foreach my $hash_key (keys %passed_hash){

		if ($hash_key =~ m/$passed_expression/){

			# We have a match so put the result into the hash.

			$hash_search_result{ $hash_key } = $passed_hash{$hash_key};
			$hash_search_result_count++;
		}

	}

	# Return 1 if there was at least one search result returned and return
	# 0 if not.

	return 1 if $hash_search_result_count >= 1;
	return 0;

}

sub hash_search_resultdata{

	# hash_search_resultdata: Return the result data for
	# the search that has been made.

	return %hash_search_result;

}

sub hash_search_resultcount{

	# hash_search_resultcount: Return the count of results
	# for the search.

	return $hash_search_result_count;

}

1;

__END__