view release on metacpan or  search on metacpan

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

=cut

sub add {
	my ($int1, $int2) = @_;
	return $int1 + $int2;
}

=head2 subtract($int, $int)

Subtracts the second integer from the first and returns the result.

=cut

sub subtract {
	my ($int1, $int2) = @_;
	return $int1 - $int2;
}

=head1 AUTHOR