SI/dumper.pm
branch2010-01-17
changeset 10 23dd30396607
parent 7 03ca6d811a17
child 12 a1aee1136609
--- a/SI/dumper.pm	Sat Jan 16 23:53:50 2010 +0100
+++ b/SI/dumper.pm	Sun Jan 17 12:13:47 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}};