/usr/share/perl5/CQL/ProxModifierSet.pm is in libcql-parser-perl 1.10-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 36 37 38 39 40 41 42 43 44 | package CQL::ProxModifierSet;
use strict;
use warnings;
use base qw( CQL::ModifierSet );
use CQL::Utils qw( indent xq );
use Carp qw( croak );
use CQL::ModifierSet;
=head1 NAME
CQL::ProxModifierSet - represents a base string and modifier strings
=head1 SYNOPSIS
=head1 DESCRIPTION
This class is used as a delegate by CQLProxNode based on ModifierSet
data structure.
=head1 METHODS
=head2 toCQL()
=cut
sub toCQL {
my $self = shift;
my $cql = $self->{base};
my $distance = $self->modifier("distance");
my $relation = $self->modifier("relation");
my $unit = $self->modifier("unit");
my $ordering = $self->modifier("ordering");
$cql .= "/distance$relation$distance"
if defined $distance and defined $relation;
$cql .= "/unit=$unit" if defined $unit;
$cql .= "/$ordering" if defined $ordering;
return $cql;
}
1;
|