File Coverage

blib/lib/Number/Convert.pm

Criterion	Covered	Total	%
statement	49	75	65.3
branch	6	22	27.2
condition	4	27	14.8
subroutine	14	19	73.6
pod	5	14	35.7
total	78	157	49.6

package Number::Convert;

use strict;
use warnings;

use vars qw/$VERSION/;

$VERSION="1.0.2";

use overload (
	'+', 'add',
	'-', 'subtract',
	'*', 'multiply',
	'/', 'divide',
	'&', 'and',
	'|', 'or',
	'^', 'xor'
);

sub new
{
	my ($class, $param) = @_;

	die "Invalid number of parameters passed to constructor. Expected was 1, found ".(scalar(@_) - 1).".\n" if(scalar(@_) != 2);

	die "Invalid value passed to parameter. $param is not a number" if(!isNumber($param));

	my $self = {
		number => $param
	};
	bless ($self, $class);
	return $self;
}

sub ToDecimal
{
	my $self = shift;
	return sprintf "%d", $self->{number};
}

sub ToBinary
{
	my $self = shift;
	return sprintf "%b", $self->{number};
}

sub ToHex
{
	my $self = shift;
	return sprintf "%x", $self->{number};
}

sub ToUpperCaseHex
{
	my $self = shift;
	return sprintf "%X", $self->{number};
}

sub ToOctal
{
	my $self = shift;
	return sprintf "%O", $self->{number};
}

sub add
{
	my $self = shift;
	my $value = shift;

	die "Can't add non numeric value to number\n" if(!defined($value) || !isNumber($value));

	$self->{number} += $value;
	return $self;
}

sub subtract
{
	my $self = shift;
	my $value = shift;

	die "Can't subtract non numeric value from number\n" if(!defined($value) || !isNumber($value));

	$self->{number} -= $value;
	return $self;
}

sub multiply
{
	my $self = shift;
	my $value = shift;

	die "Can't multiple number by non numeric value\n" if(!defined($value) || !isNumber($value));

	$self->{number} *= $value;
	return $self;
}

sub divide
{
	my $self = shift;
	my $value = shift;

	die "Can't divide number by non numeric value\n" if(!defined($value) || !isNumber($value));

	die "Division by zero not supported\n" if ($value == 0);

	$self->{number} /= $value;
	return $self;
}

sub and
{
	my $self = shift;
	my $value = shift;

	die "Can't AND number with non numeric value\n" if(!defined($value) || !isNumber($value));

	$self->{number} &= $value;
	return $self;
}

sub or
{
	my $self = shift;
	my $value = shift;

	die "Can't OR number with non numeric value\n" if(!defined($value) || !isNumber($value));

	$self->{number} |= $value;
	return $self;
}

sub xor
{
	my $self = shift;
	my $value = shift;

	die "Can't XOR number by non numeric value\n" if(!defined($value) || !isNumber($value));

	$self->{number} = $self->{number} ^ $value;
	return $self;
}

sub isNumber
{
	use POSIX qw(strtod);
	my $str = shift;
	$str =~ s/^\s+//;
	$str =~ s/\s+$//;
	$! = 0;
	my($num, $unparsed) = strtod($str);
	if (($str eq '') || ($unparsed != 0) || $!) {
		return 0;
	}
	else {
		return 1;
	}
}

1;

__END__