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

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 || [] };