This file is indexed.

/usr/share/perl5/Data/ObjectDriver/BaseView.pm is in libdata-objectdriver-perl 0.09-2.

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;