lib/DBIx/Class/CDBICompat/Retrieve.pm

   1 package DBIx::Class::CDBICompat::Retrieve;
   2
   3 use strict;
   4 use warnings FATAL => 'all';
   5
   6 sub retrieve          { shift->find(@_)            }
   7 sub retrieve_all      { shift->search              }
   8
   9 sub retrieve_from_sql {
  10   my ($class, $cond, @rest) = @_;
  11   $cond =~ s/^\s*WHERE//i;
  12   $class->search_literal($cond, @rest);
  13 }
  14
  15 sub count_all         { shift->count               }
  16   # Contributed by Numa. No test for this though.
  17
  18 1;