perl -x to test while developing

Editing a large module and you want to run/compile just a sub-section. Add #!perl and '__END__' around the interesting bit and run it with perl -x

Vim ':make' integration is an exercise for the interested reader.

In MyFile.pm

half-baked pseudo-code
#!perl -wl -MData::Dumper

sub hohum {
    return bless {}, 'Something::Interesting';
}
print Dumper(hohum);

__END__
more bad code
[download]

Then at the command line:
$ perl -x -Mstrict MyFile.pm
or
$ perl -cx -Mstrict MyFile.pm
or even
$ perl -x -MO=Deparse MyFile.pm

PS. Riddle me this Batman:

$ perl -x
#!perl -MYAML -Mstrict
"-Mstrict" is not exported by the YAML module at - line 0
Can't continue after import errors at - line 0
BEGIN failed--compilation aborted.
[download]

Update: Changed -mstrict to -Mstrict per tye

Comment on perl -x to test while developing Select or Download Code

Replies are listed 'Best First'.
Re: perl -x to test while developing (riddles) by tye (Sage) on Apr 29, 2003 at 05:08 UTC
Some more riddles: `% perl -mstrict -le 'print $x$y;' 1 % perl -l require strict; print $x$y; <EOF> 1 % perl #!perl -MCarp -Mstrict Too late for "-MCarp" option %` [download] Perl's support for -M on the #! line is limited (to the point of not being supported at all in my version of Perl, v5.6.0). Your version appears to support it to some extent (was that small amount of support added or was it removed because it was buggy and too much work to do right?). That is why we have use. -mstrict does nothing useful, just like '`require strict;`'. Oh, and nice trick. Thanks. (: - tye	[reply] [d/l] [select]
Re: Re: perl -x to test while developing (riddles) by bsb (Priest) on Apr 29, 2003 at 06:06 UTC
-mstrict does nothing useful, just like 'require strict;'. Thanks, fixed. Although I maybe it's more like 'use strict ();' `$ perl -mstrict=vars -le 'print $x**$y;' Global symbol "$x" requires explicit package...` [download] perlrun says "Any meaningful switches on that line will be applied" but "meaningful" seems to be strangely implemented. At least with 5.6.1. Here's another one: `$ perl -x #!perl -wl -Mstrict -MB -MCGI Argument "MCGI" isn't numeric in subtraction (-). Argument "-MB" isn't numeric in subtraction (-).` [download]	[reply] [d/l] [select]
Re^3: perl -x to test while developing (-m switch) by Aristotle (Chancellor) on Apr 30, 2003 at 12:59 UTC
Although I maybe it's more like 'use strict ();' That's indeed what `-m` means, which, to be entirely precise, is like `BEGIN { require strict }`. Makeshifts last the longest.	[reply]


Your skill will accomplish what the force of many cannot
	PerlMonks