/usr/share/perl5/Class/DBI/AbstractSearch.pm is in libclass-dbi-abstractsearch-perl 0.07-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 | package Class::DBI::AbstractSearch;
use strict;
use vars qw($VERSION @EXPORT);
$VERSION = 0.07;
require Exporter;
*import = \&Exporter::import;
@EXPORT = qw(search_where);
use SQL::Abstract::Limit;
sub search_where {
my $class = shift;
my $where = (ref $_[0]) ? $_[0] : { @_ };
my $attr = (ref $_[0]) ? $_[1] : undef;
my $order = ($attr) ? delete($attr->{order_by}) : undef;
my $limit = ($attr) ? delete($attr->{limit}) : undef;
my $offset = ($attr) ? delete($attr->{offset}) : undef;
# order is deprecated, but still backward compatible
if ($attr && exists($attr->{order})) {
$order = delete($attr->{order});
}
$class->can('retrieve_from_sql') or do {
require Carp;
Carp::croak("$class should inherit from Class::DBI >= 0.90");
};
my $sql = SQL::Abstract::Limit->new(%$attr);
my($phrase, @bind) = $sql->where($where, $order, $limit, $offset);
$phrase =~ s/^\s*WHERE\s*//i;
return $class->retrieve_from_sql($phrase, @bind);
}
1;
__END__
=head1 NAME
Class::DBI::AbstractSearch - Abstract Class::DBI's SQL with SQL::Abstract::Limit
=head1 SYNOPSIS
package CD::Music;
use Class::DBI::AbstractSearch;
package main;
my @music = CD::Music->search_where(
artist => [ 'Ozzy', 'Kelly' ],
status => { '!=', 'outdated' },
);
my @misc = CD::Music->search_where(
{ artist => [ 'Ozzy', 'Kelly' ],
status => { '!=', 'outdated' } },
{ order_by => "reldate DESC",
limit_dialect => 'LimitOffset',
limit => 1
offset => 2 });
=head1 DESCRIPTION
Class::DBI::AbstractSearch is a Class::DBI plugin to glue
SQL::Abstract::Limit into Class::DBI.
=head1 METHODS
Using this module adds following methods into your data class.
=over 4
=item search_where
$class->search_where(%where);
Takes a hash to specify WHERE clause. See L<SQL::Abstract> for hash
options.
$class->search_where(\%where,\%attrs);
Takes hash reference to specify WHERE clause. See L<SQL::Abstract>
for hash options. Takes a hash reference to specify additional query
attributes. Class::DBI::AbstractSearch uses these attributes:
=over 4
=item *
B<order_by>
Array reference of fields that will be used to order the results of
your query.
=item *
B<limit_dialect>
Scalar, DBI handle, object class, etc. that describes the syntax model
for a LIMIT/OFFSET SQL clause. Please see SQL::Abstract::Limit
for more information.
=item *
B<limit>
Scalar value that will be used for LIMIT argument in a query.
=item *
B<offset>
Scalar value that will be used for OFFSET argument in a query.
=back
Any other attributes are passed to the SQL::Abstract::Limit constructor,
and can be used to control how queries are created. For example,
to use 'AND' instead of 'OR' by default, use:
$class->search_where(\%where, { logic => 'AND' });
=back
=head1 AUTHOR
Tatsuhiko Miyagawa E<lt>miyagawa@bulknews.netE<gt> with some help from
cdbi-talk mailing list, especially:
Tim Bunce
Simon Wilcox
Tony Bowden
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=head1 SEE ALSO
L<Class::DBI>, L<SQL::Abstract>, L<SQL::Abstract::Limit>
=cut
|