X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FDDS.pm;h=ee60a841ab2b57e786ec3f74302475957e06cc6c;hp=9a324495a74044099b986039bd9e912e9912ddd1;hb=1d6c2dbc8cd96877b4f8df5698b6ff18d2fddac8;hpb=767c76dde72c46f46c5dc4526287b7bcd8ead962 diff --git a/lib/Devel/REPL/Plugin/DDS.pm b/lib/Devel/REPL/Plugin/DDS.pm index 9a32449..ee60a84 100644 --- a/lib/Devel/REPL/Plugin/DDS.pm +++ b/lib/Devel/REPL/Plugin/DDS.pm @@ -1,14 +1,17 @@ +use strict; +use warnings; package Devel::REPL::Plugin::DDS; use Devel::REPL::Plugin; use Data::Dump::Streamer (); +use namespace::autoclean; around 'format_result' => sub { my $orig = shift; my $self = shift; my @to_dump = @_; my $out; - if (@to_dump != 1 || ref $to_dump[0]) { + if (@to_dump > 1 || ref $to_dump[0]) { if (@to_dump == 1 && overload::Method($to_dump[0], '""')) { $out = "@to_dump"; } else {