Corrected columns_info_for indent level - 2 space indent everyone please, you may...
[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / Retrieve.pm
1 package # hide from PAUSE
2     DBIx::Class::CDBICompat::Retrieve;
3
4 use strict;
5 use warnings FATAL => 'all';
6
7
8 sub retrieve  {
9   die "No args to retrieve" unless @_ > 1;
10   shift->find(@_);
11 }
12
13 sub retrieve_from_sql {
14   my ($class, $cond, @rest) = @_;
15   $cond =~ s/^\s*WHERE//i;
16   $class->search_literal($cond, @rest);
17 }
18
19 sub retrieve_all      { shift->search              }
20 sub count_all         { shift->count               }
21   # Contributed by Numa. No test for this though.
22
23 1;