Re: How Do I Bundle Perl Modules and Their Tests Into the Same File?

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

Then run it like this:

perl -Mifdef=TEST MyClass.pm
[download]

I'm sure others will offer more ideas, too.

Update: Added missing 1; as pointed out below.

Remember: There's always one more bug.

Comment on Re: How Do I Bundle Perl Modules and Their Tests Into the Same File? Select or Download Code

Replies are listed 'Best First'.
Re^2: How Do I Bundle Perl Modules and Their Tests Into the Same File? by perlknight (Pilgrim) on Feb 13, 2006 at 00:30 UTC
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?	[reply]
Re^3: How Do I Bundle Perl Modules and Their Tests Into the Same File? by ikegami (Patriarch) on Feb 13, 2006 at 03:13 UTC
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.	[reply] [d/l]

In Section Seekers of Perl Wisdom