sub foo {
    ...
}
unless (caller) {
    ... your tests go here ...
}