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