1 package SI::mbr;

     2 

     3 use strict;

     4 use warnings;

     5 use File::Basename;

     6 use if $ENV{DEBUG} ~~ q(mbr) => "Smart::Comments";

     7 

     8 sub save($\%) {

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

    10 	

    11 

    12 	foreach my $disk (keys %{$devices->{disks}}) {

    13 		open((my $o), $_ = sprintf(">$file", basename($disk))) or die "Can't open $_: $!\n";

    14 		local $/ = \512;

    15 

    16 		open(my $in, $disk) or die "Can't open $disk: $!\n";

    17 		print $o $_ = <$in>;

    18 	}

    19 }

    20 

    21 1;