File Coverage

blib/lib/Rope/Handles/Counter.pm

Criterion	Covered	Total	%
statement	12	15	80.0
branch	2	4	50.0
condition			n/a
subroutine	5	7	71.4
pod	4	5	80.0
total	23	31	74.1

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__