do_delete action now has exported attribute in ::Model::CDBI::Base

[maypole.git] / lib / Maypole / Model / CDBI / Base.pm

diff --git a/lib/Maypole/Model/CDBI/Base.pm b/lib/Maypole/Model/CDBI/Base.pm
index d933c5bb1006b4d25f5fe8ab24fb2a799c8d9dc2..ec88942762e7b58d0f0a4930484bec39be9a0d31 100644 (file)
--- a/lib/Maypole/Model/CDBI/Base.pm
+++ b/lib/Maypole/Model/CDBI/Base.pm
@@ -183,8 +183,7 @@ sub delete : Exported {
   }
 }
 
-
-sub do_delete {
+sub do_delete : Exported {
   my ( $self, $r ) = @_;
   # FIXME: handle fatal error with exception
   $_->SUPER::delete for @{ $r->objects || [] };