refuse to invoke create_related as class method

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Relationship / Base.pm

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.