|
Lines 135-141
sub fetch_values {
Link Here
|
| 135 |
|
135 |
|
| 136 |
sub all { |
136 |
sub all { |
| 137 |
my ( $class, $args ) = @_; |
137 |
my ( $class, $args ) = @_; |
| 138 |
die "BAD CALL: Don't use fetch_all_values as a static method" |
138 |
die "BAD CALL: Don't use fetch_all_values as an instance method" |
| 139 |
if ref $class and UNIVERSAL::can($class,'can'); |
139 |
if ref $class and UNIVERSAL::can($class,'can'); |
| 140 |
my $tablename = $args->{tablename}; |
140 |
my $tablename = $args->{tablename}; |
| 141 |
my $searchable = $args->{searchable}; |
141 |
my $searchable = $args->{searchable}; |
|
Lines 172-178
sub all {
Link Here
|
| 172 |
|
172 |
|
| 173 |
sub fetch_all_values { |
173 |
sub fetch_all_values { |
| 174 |
my ( $class, $args ) = @_; |
174 |
my ( $class, $args ) = @_; |
| 175 |
die "BAD CALL: Don't use fetch_all_values as a static method" |
175 |
die "BAD CALL: Don't use fetch_all_values as an instance method" |
| 176 |
if ref $class and UNIVERSAL::can($class,'can'); |
176 |
if ref $class and UNIVERSAL::can($class,'can'); |
| 177 |
|
177 |
|
| 178 |
my $record_id = $args->{record_id}; |
178 |
my $record_id = $args->{record_id}; |
|
Lines 199-205
sub fetch_all_values {
Link Here
|
| 199 |
|
199 |
|
| 200 |
sub get_matching_record_ids { |
200 |
sub get_matching_record_ids { |
| 201 |
my ( $class, $args ) = @_; |
201 |
my ( $class, $args ) = @_; |
| 202 |
die "BAD CALL: Don't use fetch_all_values as a static method" |
202 |
die "BAD CALL: Don't use fetch_all_values as an instance method" |
| 203 |
if ref $class and UNIVERSAL::can($class,'can'); |
203 |
if ref $class and UNIVERSAL::can($class,'can'); |
| 204 |
|
204 |
|
| 205 |
my $fields = $args->{fields} // []; |
205 |
my $fields = $args->{fields} // []; |
| 206 |
- |
|
|