[Bast-commits] r4201 - DBIx-Class/0.08/trunk/lib/DBIx/Class/CDBICompat

[schwern at dev.catalyst.perl.org]

Author: schwern
Date: 2008-03-14 03:17:12 +0000 (Fri, 14 Mar 2008)
New Revision: 4201

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/CDBICompat/AccessorMapping.pm
Log:
Reorder the accessor_name_for() check to get the more likely one first to
squeeze a little performance out maybe.

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/CDBICompat/AccessorMapping.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/CDBICompat/AccessorMapping.pm	2008-03-14 03:16:36 UTC (rev 4200)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/CDBICompat/AccessorMapping.pm	2008-03-14 03:17:12 UTC (rev 4201)
@@ -30,12 +30,12 @@
 # that we should support both.  CDBI does.
 sub _can_accessor_name_for {
     my $class = shift;
-    return $class->can("accessor_name") || $class->can("accessor_name_for");
+    return $class->can("accessor_name_for") || $class->can("accessor_name");
 }
 
 sub _can_mutator_name_for {
     my $class = shift;
-    return $class->can("mutator_name") || $class->can("mutator_name_for");
+    return $class->can("mutator_name_for") || $class->can("mutator_name");
 }
 
 sub _try_accessor_name_for {