From: Tim Bunce <Tim.Bunce@pobox.com>
Date: Thu, 11 Oct 2012 14:45:01 +0000 (+0100)
Subject: Use Devel::Dwarn instead of Data::Dump
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d9d259d13ee0b57a30f30fa5e3afdf1560076e82;p=p5sagit%2FDevel-Size.git

Use Devel::Dwarn instead of Data::Dump
---

diff --git a/Makefile.PL b/Makefile.PL
index 679218b..8a4e6c2 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -27,8 +27,8 @@ WriteMakefile(
         # sizeme_graph.pl will eventually become a separate module
         #'Mojolicious::Lite' => 0,
         'Devel::Dwarn' => 0,
-        XSLoader => 0,
-        ORLite => 0,
+        'XSLoader' => 0,
+        'ORLite' => 0,
     },
     EXE_FILES => [ 'bin/sizeme_store.pl', 'bin/sizeme_graph.pl' ],
     clean => {
diff --git a/bin/sizeme_graph.pl b/bin/sizeme_graph.pl
index b8530d6..71aa792 100755
--- a/bin/sizeme_graph.pl
+++ b/bin/sizeme_graph.pl
@@ -57,7 +57,7 @@ http://thejit.org/static/v20/Jit/Examples/Spacetree/example2.html
 use strict;
 use warnings;
 
-use Mojolicious::Lite;
+use Mojolicious::Lite; # possibly needs v3
 use JSON::XS;
 use Getopt::Long;
 use Storable qw(dclone);
@@ -128,11 +128,10 @@ get '/jit_tree/:id/:depth' => sub {
         return $jit_node;
     });
 
-    if(1){ # debug
-        use Devel::Dwarn;
-        use Data::Dump qw(pp);
+    if (1){ # debug
+        #use Data::Dump qw(pp);
         local $jit_tree->{children};
-        pp(dclone($jit_tree)); # dclone to avoid stringification
+        Dwarn(dclone($jit_tree)); # dclone to avoid stringification
     }
 
     $self->render_json($jit_tree);