--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SI/dumper.pm	Sat Jan 16 23:53:50 2010 +0100
@@ -0,0 +1,22 @@
+package SI::dumper;
+
+use strict;
+use warnings;
+use SI::tools;
+use if $ENV{DEBUG} ~~ /dumper|all/ => "Smart::Comments";
+
+sub dump($\%) {
+    my ($file, $devs) = @_;
+
+    ### $devs
+
+    my %volume = %{$devs->{volume}};
+
+    foreach my $v ( grep { $volume{$_}{type} ~~ /^ext/ } keys %volume ) {
+	verbose("dumping $v\n");
+    }
+}
+
+1;
+
+# vim:sts=4 sw=4 aw ai sm: