testing in perl: main and caller

water has asked for the wisdom of the Perl Monks concerning the following question:

Hi --

chromatic's & ian langworth's most excellent book on perl testing had a tip on how to use caller and a subroutine do_main so that a perl script ("perl foo.pl") could also be loaded in a test script (eq 'use'd or 'require'd) w/o executing, so its subs could be tested.

sadly i lent the book away and won't have access to it for a while.

could someone assist with that idiom?

thanks!

water

Comment on testing in perl: main and caller

Replies are listed 'Best First'.
Re: testing in perl: main and caller by bmann (Priest) on Sep 05, 2005 at 02:14 UTC
I'm not sure if this is what chromatic suggested, but either one of these should do what you're looking for: `unless ( defined caller ) { #code here }` [download] or `sub do_me { #code to run here } do_me unless defined caller;` [download] `sub do_me` or the block after `unless` won't be executed when used or required, but will be executed from the command line. From perldoc caller: `Returns the context of the current subroutine call. In scalar context, returns the caller's package name if there is a caller, that is, if we're in a subroutine or eval or require, and the undefined value otherwise.`	[reply] [d/l] [select]
Re^2: testing in perl: main and caller by chromatic (Archbishop) on Sep 05, 2005 at 02:37 UTC
That's basically what the book suggests. Thanks!	[reply]
Re^3: testing in perl: main and caller by water (Deacon) on Sep 05, 2005 at 02:48 UTC
what does the test code look like, then? `use_ok('foo.pl');` [download] isn't correct, clearly. ?	[reply] [d/l]
Re^4: testing in perl: main and caller by chromatic (Archbishop) on Sep 05, 2005 at 06:14 UTC
Re: testing in perl: main and caller by xdg (Monsignor) on Sep 06, 2005 at 11:40 UTC
For more on this technique, check out `brian d foy`'s article 'How a script becomes a module' -xdg Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.	[reply] [d/l]


Perl-Sensitive Sunglasses
	PerlMonks