File Coverage

blib/lib/Rope/Handles/Counter.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	4	4	100.0
condition			n/a
subroutine	7	7	100.0
pod	4	5	80.0
total	30	31	96.7

package Rope::Handles::Counter;

use strict;
use warnings;

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

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

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

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

sub clear { $_[0]->reset }

1;

__END__