use Moose::Role;
use Digest ();
-use Storable ();
+#use Storable ();
use MooseX::Storage::Engine;
+use Data::Dumper ();
+
our $VERSION = '0.01';
our $DIGEST_MARKER = '__DIGEST__';
# check checksum on data
- my $old_checksum = $data->{$DIGEST_MARKER};
- delete $data->{$DIGEST_MARKER};
+ my $old_checksum = delete $data->{$DIGEST_MARKER};
my $checksum = $class->_digest_packed($data, @args);
{
local $Storable::canonical = 1;
- $d->add( Storable::nfreeze($collapsed) );
+ local $Data::Dumper::Indent = 0;
+ local $Data::Dumper::Sortkeys = 1;
+
+ #Storable::nfreeze($collapsed);
+ $d->add( Data::Dumper::Dumper($collapsed) );
}
return $d->hexdigest;