X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FModel%2FCDBI.pm;h=da6f16224c69b0d4073be5e3be66f38918182640;hb=a183ff6bda2ae98ef8f4a4f979647052e0020dea;hp=2c79804642773411585ceca3e564bff1966c048d;hpb=ba248b38837f2089582aa4a5e0faa3f2801e6c5a;p=maypole.git diff --git a/lib/Maypole/Model/CDBI.pm b/lib/Maypole/Model/CDBI.pm index 2c79804..da6f162 100644 --- a/lib/Maypole/Model/CDBI.pm +++ b/lib/Maypole/Model/CDBI.pm @@ -142,6 +142,11 @@ sub _do_update_or_create { } +=head2 delete + +Deprecated method that calls do_delete or a given classes delete method, please +use do_delete instead + =head2 do_delete Unsuprisingly, this command causes a database record to be forever lost. @@ -167,6 +172,9 @@ sub do_delete { $self->list($r); } +=head2 search + +Deprecated searching method - use do_search instead. =head2 do_search @@ -583,6 +591,12 @@ sub class_of { return $r->config->loader->_table2class($table); # why not find_class ? } +=head2 fetch_objects + +Returns 1 or more objects of the given class when provided with the request + +=cut + sub fetch_objects { my ($class, $r)=@_; my @pcs = $class->primary_columns;