This file is indexed.

/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