This file is indexed.

/usr/share/perl5/CQL/Prefix.pm is in libcql-parser-perl 1.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
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
package CQL::Prefix;

use strict;
use warnings;
use Carp qw( croak );

=head1 NAME

CQL::Prefix - represents a CQL prefix mapping

=head1 SYNOPSIS

    use CQL::Prefix;

=head1 DESCRIPTION

Represents a CQL prefix mapping from short name to long identifier.

=head1 METHODS

=head2 new()

You need to pass in the name and identifier parameters. 

The name is the short name of the prefix mapping. That is, the prefix
itself, such as dc, as it might be used in a qualifier like dc.title.

The identifier is the name of the prefix mapping.  That is,
typically, a URI permanently allocated to a specific qualifier
set, such as http://zthes.z3950.org/cql/1.0.

    my $prefix = CQL::Prefix->new(
        name        => 'dc',
        identifier  => 'http://zthes.z3950.org/cql/1.0'
    );
              
=cut

sub new {
    my ($class,%opts) = @_;
    croak( 'must supply name' ) if ! exists $opts{name};
    croak( 'must supply identifier' ) if ! exists $opts{identifier};
    my $self = { name => $opts{name}, identifier => $opts{identifier} };
    return bless $self, ref($class) || $class;
}

=head2 getName()

=cut

sub getName {
    return shift->{name};
}

=head2 getIdentifier()

=cut

sub getIdentifier {
    return shift->{identifier};
}

1;