/usr/share/perl5/Lire/Config/Index.pm is in lire 2:2.1.1-2.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 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 | package Lire::Config::Index;
use strict;
use Lire::Utils qw/ check_object_param /;
use Carp;
our %REGISTRY = ();
=pod
=head1 NAME
Lire::Config::Index - Index registry and interface
=head1 SYNOPSIS
use base qw/Lire::Config::Index/;
sub has_entry { my ($self, $name) = @_; ... }
sub entries { my $self = $_[0]; ... }
sub get_ref { my ($self, $name) = @_; ... }
=head1 DESCRIPTION
The Lire::Config::Index interface is used by the
Lire::Config::ReferenceSpec(3pm) to validate and obtain referenced
object.
=head1 INDEX REGISTRY
These are the class methods used to register and obtain Index objects.
=head2 has_index( $name )
Returns true if an index was registered under $name.
=head2 get_index( $name )
Retuurns the Index named $name. Croaks if no such index was
registered.
=head2 set_index( $name, $index )
Registers $index under $name. Replaces any previous index registered
under the same name.
=cut
sub has_index {
my ( $self, $name ) = @_;
return defined $REGISTRY{$name};
}
sub get_index {
my ( $self, $name ) = @_;
croak "no index registered under '$name'"
unless $self->has_index( $name );
return $REGISTRY{$name};
}
sub set_index {
my ( $self, $name, $index ) = @_;
check_object_param( $index, 'index', 'Lire::Config::Index' )
if defined $index;
$REGISTRY{$name} = $index;
return;
}
=pod
=head1 INDEX INTERFACE
=head2 has_entry( $name )
Should return true if $name is defined in this index.
=head2 entries()
Should return all the entries defined in the index.
=head2 get_ref( $name )
Should return the object indexed under $name. An error should be
thrown if there is no such entry.;.
=cut
sub has_entry {
croak ref shift, "::has_entry is unimplemented";
}
sub entries {
croak ref shift, "::entries is unimplemented";
}
sub get_ref {
croak ref shift, "::get_ref is unimplemented";
}
1;
__END__
=pod
=head1 SEE ALSO
Lire::Config::Reference(3pm) Lire::Config::ReferenceSpec(3pm)
Lire:Config::ReportConfigIndex(3pm)
=head1 AUTHOR
Francis J. Lacoste <flacoste@logreport.org>
=head1 VERSION
$Id: Index.pm,v 1.2 2006/07/23 13:16:30 vanbaal Exp $
=head1 COPYRIGHT
Copyright (C) 2004 Stichting LogReport Foundation LogReport@LogReport.org
This file is part of Lire.
Lire is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program (see COPYING); if not, check with
http://www.gnu.org/copyleft/gpl.html.
=cut
|