package abc;
...
return 1 if caller;
package main;

my $abc = abc->new();
...
[download]

To run the tests, use

perl \path\to\lib\abc.pm
[download]

would this work if the module is required, from a sub? for instance:

sub foo {
    require abc;
    abc->bar();
}
[download]

Yes.

---

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.

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
[download]

perl -Mifdef=TEST MyClass.pm
[download]

Update: Added missing 1; as pointed out below.

hmm, a module need to have "1;" as the last entry. Where does this goes in this case? The last line or in the module it is declaring, e.g for this particalur example in the MyClass package?

Before of after the =begin..=cut, it doesn't matter. When used as a module, =begin..=cut is just a comment, so it's ignored. When used as a script (to test the module), the 1; isn't needed since it's not a module.

package abc;
# ...

package main;
sub test_me {
  # test code here
}

test_me unless defined caller;
[download]