Select Code to Download

#!/usr/bin/perl 
package Mymodule;
...
        return ($val1,  $val2);
        }
1;

#!/usr/bin/perl 
use strict;
...
my $cow = 4;

is( values($pig, $cow ),  (3 and 4),  "checking values" ) ;

ok 1 - use Mymodule;
ok 2 - checking values
1..2

is( values($pig, $cow ),  (3, 4),  "checking values" ) ;

ok 1 - use Mymodule;
Useless use of a constant in void context at ./mymodule.t line 12.
ok 2 - checking values
1..2