Ron Savage wrote:
Hi Richard
On Sat, 2009-09-19 at 10:49 +0100, Richard Jones wrote:
Ron Savage wrote:
[snip]
Hi Ron, hey that's nice - I just used it to profile my current app. I
modified it slightly to make it a bit less painful on the eyes (though I
You can't be serious. My code may not be perfect, but it's clear what
it's doing...
Yep, though I didn't claim mine was either (just personal preferences at
work here, and the temptation to hack to see what can be done), and the
use of IO::All in place of manual file handling.
And this also works for me:
$lines += grep { s/^\s+|\s+$//; $_ !~ /^[{}]?$|^#/; } io($_)->chomp->slurp;
though it's still horribly noisy in the grep block (can that be
improved?), and doesn't exempt content between =begin & =cut blocks.
--
Richard Jones
##### CGI::Application community mailing list ################
## ##
## To unsubscribe, or change your message delivery options, ##
## visit: http://www.erlbaum.net/mailman/listinfo/cgiapp ##
## ##
## Web archive: http://www.erlbaum.net/pipermail/cgiapp/ ##
## Wiki: http://cgiapp.erlbaum.net/ ##
## ##
################################################################
