Initial Commit

database/perl/vendor/lib/Crypt/OpenPGP/Trust.pm

@@ -0,0 +1,36 @@
+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