lib/CloudStore/MD5sum.pm

   1 package CloudStore::MD5sum;
   2 use warnings;
   3 use strict;
   4
   5 use Carp qw(confess carp);
   6 use Data::Dump qw(dump);
   7
   8 sub md5_get {
   9         my ( $self, $path ) = @_;
  10         my $md5 = `attr -q -g md5 $path`;
  11         warn "## md5_get $path $md5\n";
  12         return $md5;
  13 }
  14
  15 sub md5_set {
  16         my ( $self, $path, $md5 ) = @_;
  17         system "attr -q -s md5 -V $md5 $path";
  18         warn "## md5_set $path $md5\n";
  19         return $md5;
  20 }
  21
  22 1;