Cursor abstracted, delete_related added

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

diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm
index eb05a62..68317a3 100644 (file)
--- a/lib/DBIx/Class/ResultSet.pm
+++ b/lib/DBIx/Class/ResultSet.pm
@@ -71,10 +71,12 @@ sub first {
   return $_[0]->reset->next;
 }
 
-sub delete_all {
+sub delete {
   my ($self) = @_;
   $_->delete for $self->all;
   return 1;
 }
 
+*delete_all = \&delete; # Yeah, yeah, yeah ...
+
 1;