Select Code to Download

use warnings;
use strict;
...
my ($x, $y) = My::Module->pairs();

print "ok" if $x == $y;

use warnings;
use strict;
...
is ($x, $y, "pairs() returns a pair that match");

done_testing();

ok 1 - use My::Module;
not ok 2 - pairs() returns a pair that match
...
#     expected: '2'
1..2
# Looks like you failed 1 test of 2.

sub pairs {
    return (1, 2);
}