Acme::Echo - Display perl statements before, after, and/or during execution
Version 0.02
use Acme::Echo qw/lines/;
print "hello world\n";
print "blah\n";
no Acme::Echo;
print "foo\n";
my $srclog;
BEGIN{ open $srclog, '>', "srclog.txt" or die; }
use Acme::Echo 'after', src_fmt=>"This code was just executed==>\n%s\n<==\n", fh=>$srclog;
...
One or more of before/after/lines may be specified. At least one shoud be specified (pointless otherwise). The others are optional.
Print out the entire code source before execution.
Print out the entire code source after execution.
Print out each line of source right before its execution (note Limitations below).
The sprintf format used for printing lines in lines mode. Defaults to "%s\n".
The sprintf format used for printing the whole source in before/after modes. Defaults to "==>\n%s\n<==\n".
A filehandle to print to. Defaults to *STDOUT.
David Westbrook (davidrw), <dwestbrook at gmail.com>
Please report any bugs or feature requests to bug-acme-echo at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Acme-Echo. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
I'm also available by email or via '/msg davidrw' on http://perlmonks.org.
You can find documentation for this module with the perldoc command.
perldoc Acme::Echo
You can also look for information at:
Samy_rio for his post (http://perlmonks.org/?node_id=568087) that inspired this.
Copyright 2006 David Westbrook, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
