X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FData%2FDumper%2FConcise.pm;h=e8ef95d0b65849474b7827c5352f79c26ba1879b;hb=weakdump;hp=5e588264cf27a2efae33901940df90910d352921;hpb=f717f5934bee3df4d972b7c7bf40d170127fb859;p=p5sagit%2FData-Dumper-Concise.git

diff --git a/lib/Data/Dumper/Concise.pm b/lib/Data/Dumper/Concise.pm
index 5e58826..e8ef95d 100644
--- a/lib/Data/Dumper/Concise.pm
+++ b/lib/Data/Dumper/Concise.pm
@@ -6,6 +6,7 @@ $VERSION = '2.020';
 
 require Exporter;
 require Data::Dumper;
+use Scalar::Util 'isweak';
 
 BEGIN { @ISA = qw(Exporter) }
 
@@ -16,7 +17,15 @@ sub DumperObject {
   $dd->Terse(1)->Indent(1)->Useqq(1)->Deparse(1)->Quotekeys(0)->Sortkeys(1);
 }
 
-sub Dumper { DumperObject->Values([ @_ ])->Dump }
+sub Dumper {
+   my $o = Data::Dumper->can('_dump');
+   local *Data::Dumper::_dump = sub {
+      isweak($_[1])
+         ? 'do { WEAK: ' . $o->(@_) . ' }'
+         : $o->(@_)
+   };
+   DumperObject->Values([ @_ ])->Dump
+}
 
 sub DumperF (&@) {
   my $code = shift;