X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FModel%2FCDBI.pm;h=df8d6c8b210094f3bc23703ae8e0a1f8bc522248;hb=ba579915a0d92c87a8d1baad0e7709ea9b3a2559;hp=8de426a7ff409e610b94afaea9b978da39e3a678;hpb=672f0445d8c46ff29b0c6ebf18d30791c017260a;p=maypole.git

diff --git a/lib/Maypole/Model/CDBI.pm b/lib/Maypole/Model/CDBI.pm
index 8de426a..df8d6c8 100644
--- a/lib/Maypole/Model/CDBI.pm
+++ b/lib/Maypole/Model/CDBI.pm
@@ -256,7 +256,7 @@ sub setup_database {
 
 sub class_of {
     my ( $self, $r, $table ) = @_;
-    return $r->config->loader->_table2class($table);
+    return $r->config->loader->_table2class($table); # why not find_class ?
 }
 
 sub fetch_objects {