view release on metacpan or  search on metacpan

lib/Acme/PETEK/Testkit.pm  view on Meta::CPAN

Creates a new C<Acme::PETEK::Testkit> object,
which will be used for the object interface below.

=cut

sub new {
	my $class = shift;
	my $self = {
		_counter => 0,
	};
	return bless $self, $class;
}

=head1 OBJECT METHODS

=head2 $kit->reset( $int );

Resets the value of the stored counter, optionally setting it to $int.

=cut