NAME

Devel::Nopeep - Disable the peephole optimiser

SYNOPSIS

  perl -MDevel::Nopeep -MO=Concise,baz -e 'sub baz { if (1) { return 2; } }'

Or in a program (near the top):

  use Devel::Nopeep;

DESCRIPTION

This module disables the peephole optimiser. This is really only useful if you want to benchmark the differences between an optimised block and a non-optimised block, or if you want to see what an op tree looks like before it's optimised.

You should NOT use this in production code, as it may introduce bugs since the peephole optimiser is probably responsible for more than just optimisations.

This is intended as a tool for help with development of Perl itself.

AUTHOR

Matthew Horsfall (alh) - <wolfsage@gmail.com>

COPYRIGHT AND LICENSE

Copyright (C) 2013 by Matthew Horsfall

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.1 or, at your option, any later version of Perl 5 you may have available.