1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
package PDL::Perldl2::Plugin::PrintControl;
use strict;
use warnings;
use Devel::REPL::Plugin;
use namespace::clean -except => [ 'meta' ];
has 'print_by_default' => (
is => 'rw',
default => 0,
);
around 'format_result' => sub {
my ($orig, $self) = (shift, shift);
my ($lines, @args) = @_;
return $self->print_by_default ? $orig->($self, @_) : ();
};
# convenience method to set/toggle print default settings
# sets like accessor if given a value, otherwise toggles status
sub do_print {
my ($repl, $value) = @_;
$value = (defined $value) ? $value : ! $repl->print_by_default;
return $repl->print_by_default($value);
}
1;
__END__
=head1 NAME
PDL::Perldl2::Plugin::PrintControl - disable default print output
=head1 SYNOPSIS
pdl> $x = 3;
3
pdl> $_REPL->load_plugin('PDL::Perldl2::Plugin::PrintControl');
pdl> $x;
pdl> $_REPL->print_by_default(1);
1
pdl> $x;
3
=head1 DESCRIPTION
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 C<print_by_default> which can be
used to toggle the print default on or off.
=head1 METHODS
=head2 print_by_default
By default, the C<PrintControl> plugin sets C<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.
=head2 do_print
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 C<pdl2> shell as the do_print sub
with the same operation but with an implicit use of C<$_REPL>.
=head1 SEE ALSO
C<Devel::REPL>
=head1 AUTHOR
Chris Marshall, C<< <chm at cpan dot org> >>
=head1 COPYRIGHT AND LICENSE
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.
=cut
|
