/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;
|