X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FRetrieve.pm;h=6937fb36094aa7ee3fac5566b63db0e1f461ae00;hb=2441e56f45b903491252be04eda67613d20f73e8;hp=b7fca68fd8160285ad7f6c60a2ed61a9cbf61873;hpb=656796f2088da66cc80f4eb127c39c923ef3c1dd;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/lib/DBIx/Class/CDBICompat/Retrieve.pm b/lib/DBIx/Class/CDBICompat/Retrieve.pm
index b7fca68..6937fb3 100644
--- a/lib/DBIx/Class/CDBICompat/Retrieve.pm
+++ b/lib/DBIx/Class/CDBICompat/Retrieve.pm
@@ -4,7 +4,10 @@ use strict;
 use warnings FATAL => 'all';
 
 sub retrieve          { shift->find(@_)            }
-sub retrieve_all      { shift->search_literal('1') }
+sub retrieve_all      { shift->search              }
 sub retrieve_from_sql { shift->search_literal(@_)  }
 
+sub count_all         { shift->count               }
+  # Contributed by Numa. No test for this though.
+
 1;