File Coverage

blib/lib/Number/Equation.pm

Criterion	Covered	Total	%
statement	69	75	92.0
branch	15	20	75.0
condition			n/a
subroutine	13	13	100.0
pod	0	8	0.0
total	97	116	83.6

package Number::Equation;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.03';

our $offset = 0.5555555;
our $precision = 0;

# TODO
use overload
	'+' => \&add,
	'-' => \&subt,
	'/' => \&div,
	'*' => \&mult,
	'%' => \&mod,
	'**' => \&exp,
	'""' => sub {
		my $num = $_[0][0];
		return $num unless $precision;
		return $num >= 0
			? $precision * int(($num + ($offset * $precision)) / $precision)
			: $precision * POSIX::ceil(($num - $offset * $precision) / $precision);
	},
	fallback => 1;

sub new {
	my $self = bless [ $_[1], [$_[1]] ],  $_[0];
	$precision = $_[2] if defined $_[2];
	$offset = $_[3] if $_[3];
	$self;
}

sub add {
	push @{ $_[0][-1] }, '+', $_[1];
	$_[0][0] += $_[1];
	$_[0];
}

sub mult {
	push @{ $_[0][-1] }, '*', $_[1];
	$_[0][0] *= $_[1];
	$_[0];
}

sub subt {
	if ($_[2]) {
		splice @{ $_[0] }, 1, 0, [$_[1], '-'];
		$_[0][0] = $_[1] - $_[0][0];
	} else {
		push @{ $_[0][-1] }, '-', $_[1];
		$_[0][0] = $_[0][0] - $_[1];
	}
	$_[0];
}


sub div {
	if ($_[2]) {
		splice @{ $_[0] }, 1, 0, [$_[1], '/'];
		$_[0][0] = $_[1] / $_[0][0];
	} else {
		push @{ $_[0][-1] }, '/', $_[1];
		$_[0][0] = $_[0][0] / $_[1];
	}
	$_[0];
}

sub mod {
	if ($_[2]) {
		splice @{ $_[0] }, 1, 0, [$_[1], '%'];
		$_[0][0] = $_[1] % $_[0][0];
	} else {
		push @{ $_[0][-1] }, '%', $_[1];
		$_[0][0] = $_[0][0] % $_[1];
	}
	$_[0];
}

sub exp {
	if ($_[2]) {
		splice @{ $_[0] }, 1, 0, [$_[1], '**'];
		$_[0][0] = $_[1] ** $_[0][0];
	} else {
		push @{ $_[0][-1] }, '**', $_[1];
		$_[0][0] = $_[0][0] ** $_[1];
	}
	$_[0];
}

sub equation {
	my $query = '';
	my $closing = 0;
	for (my $i = 1; $i <= scalar @{ $_[0] } - 1; $i++) {
		my $equation = $_[0]->[$i];
		$query .= '(' x ((scalar @{ $equation }) / 2) . $equation->[0];
		for (my $x = 1; $x <= scalar @{ $equation } - 1; $x++) {
			my $operator = $equation->[$x++];
			my $val = $equation->[$x];
			$query .=  ' ' . $operator . ' ' . (defined $val ? ($val . ')') : do { $closing++; "" });
		}
	}
	$query .= ')' x $closing;
	$query .= ($precision ? ' ≈ ' : ' = ') . $_[0];
	return $query;
}

1; # End of Number::Equation

__END__;