/usr/share/perl5/GnuPG/SubKey.pm is in libgnupg-interface-perl 0.52-2.
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 | # SubKey.pm
# - providing an object-oriented approach to GnuPG sub keys
#
# Copyright (C) 2000 Frank J. Tobin <ftobin@cpan.org>
#
# This module is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
# 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.
#
# $Id: SubKey.pm,v 1.9 2001/09/14 12:34:36 ftobin Exp $
#
package GnuPG::SubKey;
use Carp;
use Moo;
use MooX::late;
BEGIN { extends qw( GnuPG::Key ) }
has [qw( validity owner_trust local_id )] => (
isa => 'Any',
is => 'rw',
);
# DEPRECATED!
# return the last signature, if present. Or push in a new signature,
# if one is supplied.
sub signature {
my $self = shift;
my $argcount = @_;
if ($argcount) {
@{$self->signatures} = ();
$self->push_signatures(@_);
} else {
my $sigcount = @{$self->signatures};
if ($sigcount) {
return $self->signatures->[$sigcount-1];
} else {
return undef;
}
}
}
1;
__END__
=head1 NAME
GnuPG::SubKey - GnuPG Sub Key objects
=head1 SYNOPSIS
# assumes a GnuPG::PublicKey object in $key
my @subkeys = $key->subkeys();
# now GnuPG::SubKey objects are in @subkeys
=head1 DESCRIPTION
GnuPG::SubKey objects are generally instantiated
through various methods of GnuPG::Interface.
They embody various aspects of a GnuPG sub key.
This package inherits data members and object methods
from GnuPG::Key, which are not described here, but rather
in L<GnuPG::Key>.
=head1 OBJECT DATA MEMBERS
=over 4
=item validity
A scalar holding the value GnuPG reports for the trust of authenticity
(a.k.a.) validity of a key.
See GnuPG's DETAILS file for details.
=item local_id
GnuPG's local id for the key.
=item owner_trust
The scalar value GnuPG reports as the ownertrust for this key.
See GnuPG's DETAILS file for details.
=item signature
* DEPRECATED*
A GnuPG::Signature object holding the representation of the signature
on this key. Please use signatures (see L<GnuPG::Key>) instead of
signature. Using signature, you will get an arbitrary signature from
the set of available signatures.
=back
=head1 SEE ALSO
L<GnuPG::Key>,
L<GnuPG::Signature>,
=cut
|