File Coverage

blib/lib/Text/NumericData/FileCalc.pm

Criterion	Covered	Total	%
statement	52	52	100.0
branch	18	28	64.2
condition	2	6	33.3
subroutine	2	2	100.0
pod	0	1	0.0
total	74	89	83.1

package Text::NumericData::FileCalc;

use strict;

require Exporter;

# This is just a placeholder because of a past build system bug.
# The one and only version for Text::NumericData is kept in
# the Text::NumericData module itself.
our $VERSION = '1';
$VERSION = eval $VERSION;

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

# Returns list ref of deletion indices, undef on failure.
sub file_calc
{
	my $ff        = shift; # formula function
	my $config    = shift; # see defaults below
	my $data      = shift; # main data set to work on
	my $files     = shift; # list of Text::NumericData::File objects to use
	my $workarray = shift; # \@A
	my $constants = shift; # \@C
	# configuration defaults
	$config =
	{
	  bycol=>0
	, fromcol=>undef
	, byrow=>0
	, skipempty=>1 # Do nothing on empty data sets,
	, rowoffset=>0 # offset for byrow ($data starting with that row)
	} unless(defined $config);

	return undef unless defined $data;

	my @delete;
	# shortcut for context-less computations
	unless(defined $files)
	{
		for my $row (0..$#{$data})
		{
			next if(not @{$data->[$row]} and $config->{skipempty});
			my $ignore = &$ff([$data->[$row]]);
			push(@delete, $row) if $ignore;
		}
		return \@delete;
	}

	# the real deal, full computation in all complexity
	my @fromcol;
	my $bycol = 0;
	$bycol = $config->{bycol}
		if defined $config->{bycol};
	my $byrow = 0;
	$byrow = $config->{byrow}
		if defined $config->{byrow};
	for my $i (0..$#{$files})
	{
		if(defined $config->{fromcol})
		{
			$fromcol[$i] = $config->{fromcol}[$i];
		}
		$fromcol[$i] = $bycol unless defined $fromcol[$i];
	}

	for my $row (0..$#{$data})
	{
		next if(not @{$data->[$row]} and $config->{skipempty});
		# Construct array for data arrays.
		my @fd = ($data->[$row]); # main data set first
		# Add the files' sets, possibly using interpolation.
		# This uses Text::Numeric::Data::File methods.
		my $realrow = $row + $config->{rowoffset};
		for my $i (0..$#{$files})
		{
			my $d = undef;
			# Correlate via row ...
			if($byrow){ $d = $files->[$i]->{data}->[$realrow]; }
			# Interpolation is possible if configured.
			else
			{
				$d = $files->[$i]->set_of($fd[0]->[$bycol], $fromcol[$i]);
			}
			push(@fd, $d);
		}
		my $ignore = 0;
		# Ignore data sets that had no match in given files.
		for(@fd){ if(not defined $_){ $ignore = 1; last; } }
		# Finally compute!
		$ignore = &$ff(\@fd, $workarray, $constants) unless $ignore;
		if($ignore){ push(@delete, $row); }
	}
	return \@delete;
}

1;

__END__