File Coverage

blib/lib/Rope/Handles/Number.pm

Criterion	Covered	Total	%
statement	20	32	62.5
branch	0	4	0.0
condition			n/a
subroutine	7	12	58.3
pod	9	10	90.0
total	36	58	62.0

package Rope::Handles::Number;

use strict;
use warnings;

sub new {
	my ($class, $str) = @_;
	bless \$str, __PACKAGE__;
}

sub add { ${$_[0]} = ${$_[0]} + $_[1] }

sub subtract { ${$_[0]} = ${$_[0]} - $_[1] }

sub multiply { ${$_[0]} = ${$_[0]} * $_[1] }

sub divide { ${$_[0]} = ${$_[0]} / $_[1] }

sub modulus { ${$_[0]} = ${$_[0]} % $_[1] }

sub absolute { ${$_[0]} = abs(${$_[0]}) }

sub increment { ${$_[0]} += ($_[1] ? $_[1] : 1) }

sub decrement { ${$_[0]} -= ($_[1] ? $_[1] : 1) }

sub clear { ${$_[0]} = 0 }

1;

__END__