37 lines
797 B
Perl
37 lines
797 B
Perl
package Crypt::OpenPGP::Trust;
|
|
use strict;
|
|
|
|
use Crypt::OpenPGP::ErrorHandler;
|
|
use base qw( Crypt::OpenPGP::ErrorHandler );
|
|
|
|
sub new { bless { }, $_[0] }
|
|
sub flags { $_[0]->{flags} }
|
|
sub parse {
|
|
my $class = shift;
|
|
my($buf) = @_;
|
|
my $trust = $class->new;
|
|
$trust->{flags} = $buf->get_int8;
|
|
$trust;
|
|
}
|
|
|
|
1;
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
Crypt::OpenPGP::Trust - PGP Trust packet
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
I<Crypt::OpenPGP::Trust> is a PGP Trust packet. From the OpenPGP
|
|
RFC: "Trust packets contain data that record the user's specifications
|
|
of which key holders are trustworthy introducers, along with other
|
|
information that implementing software uses for trust information."
|
|
|
|
=head1 AUTHOR & COPYRIGHTS
|
|
|
|
Please see the Crypt::OpenPGP manpage for author, copyright, and
|
|
license information.
|
|
|
|
=cut
|