/usr/share/perl5/GnuPG/Fingerprint.pm is in libgnupg-interface-perl 0.46-3.
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 | # Fingerprint.pm
# - providing an object-oriented approach to GnuPG key fingerprints
#
# 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: Fingerprint.pm,v 1.8 2001/08/21 13:31:50 ftobin Exp $
#
package GnuPG::Fingerprint;
use Any::Moose;
with qw(GnuPG::HashInit);
has as_hex_string => (
isa => 'Any',
is => 'rw',
);
sub compare {
my ($self, $other) = @_;
return 0 unless $other->isa('GnuPG::Fingerprint');
return $self->as_hex_string() eq $other->as_hex_string();
}
# DEPRECATED
sub hex_data
{
my ( $self, $v ) = @_;
$self->as_hex_string( $v ) if defined $v;
return $self->as_hex_string();
}
__PACKAGE__->meta->make_immutable;
1;
__END__
=head1 NAME
GnuPG::Fingerprint - GnuPG Fingerprint Objects
=head1 SYNOPSIS
# assumes a GnuPG::Key in $key
my $fingerprint = $key->fingerprint->as_hex_string();
=head1 DESCRIPTION
GnuPG::Fingerprint objects are generally part of GnuPG::Key
objects, and are not created on their own.
=head1 OBJECT METHODS
=head2 Initialization Methods
=over 4
=item new( I<%initialization_args> )
This methods creates a new object. The optional arguments are
initialization of data members.
=item hash_init( I<%args> ).
=item compare( I<$other> )
Returns non-zero only when this fingerprint is identical to the other
GnuPG::Fingerprint.
=back
=head1 OBJECT DATA MEMBERS
=over 4
=item as_hex_string
This is the hex value of the fingerprint that the object embodies,
in string format.
=back
=head1 SEE ALSO
L<GnuPG::Key>,
=cut
|