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

The ifdef module would be useful for this. Write your module like this:
package MyClass; { # Put class code here inside the braces to # constrain the lexical scope of its variables ... } 1; =begin TEST package main; # Test code my $obj = MyClass->new(); ... =cut
Then run it like this:
perl -Mifdef=TEST
I'm sure others will offer more ideas, too.

Update: Added missing 1; as pointed out below.

Remember: There's always one more bug.