/usr/share/perl5/Data/ObjectDriver/BaseView.pm is in libdata-objectdriver-perl 0.14-1.
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 | # $Id$
package Data::ObjectDriver::BaseView;
use strict;
use warnings;
use base qw( Data::ObjectDriver::BaseObject );
use Carp ();
use Storable;
sub search {
my $class = shift;
my($terms, $args) = @_;
$args->{sql_statement} = $class->base_statement($terms, $args);
$args = Storable::dclone($args);
# quick hack: don't use HAVING if view class has datasource
if (! $class->properties->{datasource}) {
my %cols = map { $_ => 1 } @{ $class->properties->{columns} };
my %having;
for my $key (keys %$terms) {
if ($cols{$key} && ! $args->{sql_statement}->has_where($key)) {
# Don't need to delete from $term, because D::OD ignores
# it anyway when used as View class
$having{$key} = $terms->{$key};
}
}
$args->{having} = \%having;
}
$class->_proxy('search', $terms, $args)
}
1;
|