http://qs1969.pair.com?node_id=529714


in reply to How Do I Bundle Perl Modules and Their Tests Into the Same File?

package abc; ... return 1 if caller; package main; my $abc = abc->new(); ...

To run the tests, use

perl \path\to\lib\abc.pm

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.