X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStorage%2FEngine.pm;h=f31386c9e7df16e5435657f1370fa169df4b01bc;hb=b5384d082ce9b7c4fc23c74c4dfc4479ddbe7a67;hp=d496fd142fa4c9f081604ef110ddc7875d4d3007;hpb=e97396242e8acc8dff6cf3f4f5961ee1fbd8498e;p=gitmo%2FMooseX-Storage.git

diff --git a/lib/MooseX/Storage/Engine.pm b/lib/MooseX/Storage/Engine.pm
index d496fd1..f31386c 100644
--- 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