package Foo;
...
return 1 if caller; ## we're being called, stop here.

## Otherwise we're being run as 'perl Foo.pm', so test.
package main;

my $testObj = new Foo;

## test stuff.