equal
deleted
inserted
replaced
1 package SI::dumper; |
1 package SI::dumper; |
2 |
2 |
|
3 use if $ENV{DEBUG} ~~ /dumper|all/ => "Smart::Comments"; |
3 use strict; |
4 use strict; |
4 use warnings; |
5 use warnings; |
5 use SI::tools; |
6 use SI::tools; |
6 use if $ENV{DEBUG} ~~ /dumper|all/ => "Smart::Comments"; |
|
7 |
7 |
8 sub dump($\%) { |
8 sub dump($\%) { |
9 my ($file, $devs) = @_; |
9 my ($file, $devs) = @_; |
10 |
10 |
11 ### $devs |
11 ### $devs |
|
12 use Data::Dumper; |
|
13 print Dumper $devs; |
|
14 exit; |
12 |
15 |
13 my %volume = %{$devs->{volume}}; |
16 my %volume = %{$devs->{volume}}; |
14 |
17 |
15 foreach my $v ( grep { $volume{$_}{type} ~~ /^ext/ } keys %volume ) { |
18 foreach my $v ( grep { $volume{$_}{type} ~~ /^ext/ } keys %volume ) { |
16 verbose("dumping $v\n"); |
19 verbose("dumping $v\n"); |