X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FModel%2FCDBI.pm;fp=lib%2FMaypole%2FModel%2FCDBI.pm;h=2c79804642773411585ceca3e564bff1966c048d;hb=688f03716c8809f3e5cd1a2bf95276b3c45747cf;hp=32f36b909ea174c37f4f6af9e1a61bbde0288450;hpb=432a630c59b57863c970edd60bac04f583dcd22c;p=maypole.git

diff --git a/lib/Maypole/Model/CDBI.pm b/lib/Maypole/Model/CDBI.pm
index 32f36b9..2c79804 100644
--- a/lib/Maypole/Model/CDBI.pm
+++ b/lib/Maypole/Model/CDBI.pm
@@ -572,6 +572,12 @@ sub setup_database {
       if $namespace->debug;
 }
 
+=head2 class_of
+
+  returns class for given table
+
+=cut
+
 sub class_of {
     my ( $self, $r, $table ) = @_;
     return $r->config->loader->_table2class($table); # why not find_class ?