Patch to use JSON::Any and Test::JSON

[gitmo/MooseX-Storage.git] / lib / MooseX / Storage / Engine.pm

diff --git a/lib/MooseX/Storage/Engine.pm b/lib/MooseX/Storage/Engine.pm
index d496fd1..f31386c 100644 (file)
--- a/lib/MooseX/Storage/Engine.pm
+++ b/lib/MooseX/Storage/Engine.pm
@@ -92,7 +92,7 @@ my %TYPES = (
         },
         collapse => sub {
             my $obj = shift;
-            ($obj->can('does') && $obj->does('MooseX::Storage::Base'))
+            ($obj->can('does') && $obj->does('MooseX::Storage::Basic'))
                 || confess "Bad object ($obj) does not do MooseX::Storage::Base role";
             $obj->pack();
         },
@@ -120,6 +120,9 @@ sub match_type {
     # --- pass it on
     # this should cover 80% of all use cases
 
+       # CHRIS: To cover the last 20% we need a way 
+       # for people to extend this process.
+
     # NOTE:
     # if this method hasnt returned by now
     # then we have no been able to find a