And more than that:
my %sources; local *ARGV; local $/; @ARGV = ($0, values %INC); while (<>) { $sources{$ARGV} = $_; }
There. The entire source code for the application is now in %sources. Every .pm, every require, and the top-level application.
Nice and slick :)
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
