1 package SI::dumper;

     2 

     3 use strict;

     4 use warnings;

     5 use SI::tools;

     6 use if $ENV{DEBUG} ~~ /dumper|all/ => "Smart::Comments";

     7 

     8 sub dump($\%) {

     9     my ($file, $devs) = @_;

    10 

    11     ### $devs

    12 

    13     my %volume = %{$devs->{volume}};

    14 

    15     foreach my $v ( grep { $volume{$_}{type} ~~ /^ext/ } keys %volume ) {

    16 	verbose("dumping $v\n");

    17     }

    18 }

    19 

    20 1;

    21 

    22 # vim:sts=4 sw=4 aw ai sm: