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