use warnings; use strict; use Test::More; use_ok('My::Module'); my ($x, $y) = My::Module->pairs(); is ($x, $y, "pairs() returns a pair that match"); done_testing();