PDL::Perldl2::Plugin::PrintControl − disable default print output
pdl> $a = 3; 3 pdl> $_REPL−>load_plugin('PDL::Perldl2::Plugin::PrintControl'); pdl> $a; pdl> $_REPL−>print_by_default(1); 1 pdl> $a; 3
By default the Devel::REPL always prints the results of its evaluation. This is fine for small objects but for things like large data objects (e.g. a 100x100 matrix in PDL ) the result can be hundreds of lines of output for each command.
This plugin disables the default print output and adds an attribute with accessor method "print_by_default" which can be used to toggle the print default on or off.
By default, the "PrintControl" plugin sets "print_by_default" to 0 (false), which disables automatic printing of results. Call the print_by_default accessor with a 1 (true value) to enable default printing.
This is a convenience accessor for the print_by_default attribute. If you call this method without a value, it toggles the current setting. Otherwise, it just sets print_by_default to the value.
It is also available in the "pdl2" shell as the do_print sub with the same operation but with an implicit use of $_REPL.
Chris Marshall, "<chm at cpan dot org>"
Copyright (C) 2010 by Christopher Marshall
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.