Use Devel::Dwarn instead of Data::Dump

diff --git a/Makefile.PL b/Makefile.PL
index 679218b..8a4e6c2 100644 (file)
--- 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 (executable)
--- 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);