Cursor abstracted, delete_related added

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

diff --git a/lib/DBIx/Class/Relationship.pm b/lib/DBIx/Class/Relationship.pm
index 10807dd..1220686 100644 (file)
--- a/lib/DBIx/Class/Relationship.pm
+++ b/lib/DBIx/Class/Relationship.pm
@@ -196,6 +196,11 @@ sub update_from_related {
   $self->update;
 }
 
+sub delete_related {
+  my $self = shift;
+  return $self->search_related(@_)->delete;
+}
+
 1;
 
 =back