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();
...

[download]

To run the tests, use 

perl \path\to\lib\abc.pm

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

Replies are listed 'Best First'.
Re^2: How Do I Bundle Perl Modules and Their Tests Into the Same File?
by salva (Canon) on Feb 13, 2006 at 08:45 UTC
    would this work if the module is required, from a sub? for instance: 
    sub foo {
    require abc;
    abc->bar();
}

    [download]
[reply]
[d/l]
[select]

      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.
[reply]
[d/l]

In Section Seekers of Perl Wisdom