File Coverage

blib/lib/Rope/Handles/Number.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	4	4	100.0
condition			n/a
subroutine	12	12	100.0
pod	9	10	90.0
total	57	58	98.2

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__