SI/dumper.pm
changeset 11 42c603eb6301
parent 10 23dd30396607
child 12 a1aee1136609
--- a/SI/dumper.pm	Sun Jan 17 00:03:04 2010 +0100
+++ b/SI/dumper.pm	Sun Jan 17 16:40:08 2010 +0100
@@ -1,14 +1,17 @@
 package SI::dumper;
 
+use if $ENV{DEBUG} ~~ /dumper|all/ => "Smart::Comments";
 use strict;
 use warnings;
 use SI::tools;
-use if $ENV{DEBUG} ~~ /dumper|all/ => "Smart::Comments";
 
 sub dump($\%) {
     my ($file, $devs) = @_;
 
     ### $devs
+    use Data::Dumper;
+    print Dumper $devs;
+    exit;
 
     my %volume = %{$devs->{volume}};