X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FReaction%2FInterfaceModel%2FObject.pm;h=fce4fd26a62a70be19379b6af3419430bcd55c56;hb=ff009e6481678366ccd252742ff0a94b6aafab6b;hp=48d46ca14452a4b65213e550679768fcd4a261f1;hpb=f670cfd0d1ce4753a2c76b27cdc01e8471e4cc4a;p=catagits%2FReaction.git

diff --git a/lib/Reaction/InterfaceModel/Object.pm b/lib/Reaction/InterfaceModel/Object.pm
index 48d46ca..fce4fd2 100644
--- a/lib/Reaction/InterfaceModel/Object.pm
+++ b/lib/Reaction/InterfaceModel/Object.pm
@@ -19,7 +19,7 @@ class Object which {
     );
 
   #DBIC::Collection would override this to use result_class for example
-  implements _build_default_action_class_prefix => as {
+  implements _build__default_action_class_prefix => as {
     my $self = shift;
     ref $self || $self;
   };
@@ -40,7 +40,7 @@ class Object which {
     #little trick in case we call it in class context!
     my $prefix = ref $self ?
       $self->_default_action_class_prefix :
-        $self->_build_default_action_class_prefix;
+        $self->_build__default_action_class_prefix;
 
     return join "::", $prefix, 'Action', $action;
   };