X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FModel%2FCDBI%2FBase.pm;h=ec88942762e7b58d0f0a4930484bec39be9a0d31;hb=536c18508012a66ca800394935bb4d408ec11b97;hp=d933c5bb1006b4d25f5fe8ab24fb2a799c8d9dc2;hpb=e767951f92d57740dc76425868cce32f6bcf1296;p=maypole.git

diff --git a/lib/Maypole/Model/CDBI/Base.pm b/lib/Maypole/Model/CDBI/Base.pm
index d933c5b..ec88942 100644
--- 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 || [] };