1 package CloudStore::MD5sum;
5 use Carp qw(confess carp);
6 use Data::Dump qw(dump);
9 my ( $self, $path ) = @_;
10 my $md5 = `attr -q -g md5 $path`;
11 warn "## md5_get $path $md5\n";
16 my ( $self, $path, $md5 ) = @_;
17 system "attr -q -s md5 -V $md5 $path";
18 warn "## md5_set $path $md5\n";