1 package CloudStore::MD5sum;
5 use Carp qw(confess carp);
6 use Data::Dump qw(dump);
10 my ( $self, $path ) = @_;
11 my $md5 = File::ExtAttr::_getfattr( $path, 'md5' );
12 warn "## md5_get $path $md5\n";
17 my ( $self, $path, $md5 ) = @_;
18 File::ExtAttr::_setfattr( $path, md5 => $md5 );
19 warn "## md5_set $path $md5\n";