refuse to invoke create_related as class method

t/cdbi/09-has-many.t has a specific test for it.

diff --git a/lib/DBIx/Class/Relationship/Base.pm b/lib/DBIx/Class/Relationship/Base.pm
index 49a0ebe..2fba9bb 100644 (file)
--- a/lib/DBIx/Class/Relationship/Base.pm
+++ b/lib/DBIx/Class/Relationship/Base.pm
@@ -570,6 +570,9 @@ sub create_related {
   my $self = shift;
   my $rel = shift;
 
+  $self->throw_exception("Can't call *_related as class methods")
+    unless ref $self;
+
   # we need to stop and check if this is at all possible. If this is
   # an extended relationship with an incomplete definition, we should
   # just forbid it right now.