package CloudStore::MD5sum;
use warnings;
use strict;

use Carp qw(confess carp);
use Data::Dump qw(dump);

sub md5_get {
	my ( $self, $path ) = @_;
	my $md5 = `attr -q -g md5 $path`;
	warn "## md5_get $path $md5\n";
	return $md5;
}

sub md5_set {
	my ( $self, $path, $md5 ) = @_;
	system "attr -q -s md5 -V $md5 $path";
	warn "## md5_set $path $md5\n";
	return $md5;
}

1;
