File Coverage

blib/lib/Banal/Utils/Array.pm

Criterion	Covered	Total	%
statement	18	27	66.6
branch	0	6	0.0
condition	0	3	0.0
subroutine	6	7	85.7
pod	1	1	100.0
total	25	44	56.8

#===============================================
package Banal::Utils::Array;

use 5.006;
use utf8;
use strict;
use warnings;
no  warnings qw(uninitialized);

require Exporter;

our @ISA 		= qw(Exporter);
our @EXPORT_OK 	= qw(array1_starts_with_array2);

# Returns true (1) if array1 starts with array2 (via element-by-element equality), false (0) otherwise.
# The order of elements is important (it ain't a bag). For each compared element, equality can be established either thru string (eq) or numeric (==) comparison.
sub array1_starts_with_array2 {
	my ($array1, $array2) = @_;

	# if array2 is empty, then the result is undefined.
	return 		unless (scalar($array2));

	# if array2 has more items than array1, then array1 can't possibly start with array2.
	return 0	if (scalar($array2) > scalar($array1));

	my $k = 0;
	foreach my $e2 (@$array2) {
		no warnings;
		my $e1 = $array1->[$k];

		# Here, we allow both string and numeric equality. It's kind o a relaxed thing. The "no warnings" pragma (above) comes in handy.
		return 0 unless (($e1 eq $e2) || ($e1 == $e2));
		$k++;
	}
	return 1;
}




1;

__END__