/usr/lib/perl5/GSSAPI/OID/Set.pm is in libgssapi-perl 0.28-1build2.
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 | package GSSAPI::OID::Set;
require 5.005_62;
use strict;
use warnings;
require Exporter;
our @ISA = qw(Exporter GSSAPI);
our %EXPORT_TAGS = ( 'all' => [ qw() ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = ( @{ $EXPORT_TAGS{'all'} } );
1;
__END__
=head1 NAME
GSSAPI::OID::Set - methods for handling sets of GSSAPI OIDs, and some constant OID sets.
=head1 SYNOPSIS
use GSSAPI;
$oidset = GSSAPI::OID::Set->new;
$status = $oidset->insert($oid);
$status = $oidset->contains($oid, $isthere);
if ($status && $isthere) {
# blah blah blah
}
=head1 DESCRIPTION
C<GSSAPI::OID::Set> objects are simple sets of GSSAPI:OIDs (duh).
=head1 BUGS
There's no way to list the OIDs in a set; you can only check to see
if a particular one is present. This is really a bug in the C API,
so any fix would be implementation specific.
=head1 AUTHOR
Philip Guenther <pguen@cpan.org>
=head1 SEE ALSO
perl(1)
GSSAPI(3p)
GSSAPI::OID(3p)
RFC2743
=cut
|