File Coverage

blib/lib/Devel/REPL/Plugin/DDP.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             package Devel::REPL::Plugin::DDP;
2              
3 1     1   36953 use strict;
  1         2  
  1         39  
4 1     1   29 use 5.008_005;
  1         4  
  1         118  
5             our $VERSION = '0.04';
6              
7 1     1   4074 use Devel::REPL::Plugin;
  0            
  0            
8             use Data::Printer use_prototypes => 0;
9              
10             around 'format_result' => sub {
11             my $orig = shift;
12             my $self = shift;
13             my @to_dump = @_;
14             my $out;
15             for (@to_dump) {
16             my $buf;
17             p(\$_,
18             output => \$buf,
19             colored => 1,
20             caller_info => 0 );
21             $out .= $buf;
22             }
23             chomp $out;
24             $self->$orig($out);
25             };
26              
27             1;
28              
29             __END__
30              
31             =encoding utf-8
32              
33             =head1 NAME
34              
35             Devel::REPL::Plugin::DDP - Format return values with Data::Printer
36              
37             =head1 DESCRIPTION
38              
39             Use this in your Devel::REPL profile or load it from your C<re.pl> script.
40              
41             You'll also want to make sure your profile or script runs the following:
42              
43             $_REPL->normal_color("reset");
44              
45             or disables the L<standard Colors plugin|Devel::REPL::Plugin::Colors>.
46              
47             =head1 AUTHOR
48              
49             Thomas Sibley E<lt>tsibley@cpan.orgE<gt>
50              
51             =head1 COPYRIGHT
52              
53             Copyright 2013- Thomas Sibley
54              
55             =head1 LICENSE
56              
57             This library is free software; you can redistribute it and/or modify
58             it under the same terms as Perl itself.
59              
60             =head1 SEE ALSO
61              
62             =cut