/usr/share/perl5/Tangram/Expr/Coll.pm is in libtangram-perl 2.12-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 | package Tangram::Expr::Coll;
use strict;
sub new
{
my $pkg = shift;
bless [ @_ ], $pkg;
}
# XXX - not tested by test suite
sub exists
{
my ($self, $expr, $filter) = @_;
my ($coll) = @$self;
if ($expr->isa('Tangram::Expr::QueryObject'))
{
$expr = Tangram::Expr::Select->new
(
cols => [ $expr->{id} ],
exclude => [ $coll ],
filter => $self->includes($expr)->and_perhaps($filter)
);
}
my $expr_str = $expr->expr;
$expr_str =~ tr/\n/ /;
return Tangram::Expr::Filter->new( expr => "exists $expr_str", tight => 100,
objects => Set::Object->new( $expr->objects() ) );
}
1;
|