Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
Key	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Signature	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Armour.pm	7.91 KB	-rw-rw-rw-	2015-08-16 15:28
Buffer.pm	2.11 KB	-rw-rw-rw-	2015-08-16 15:28
CFB.pm	2.73 KB	-rw-rw-rw-	2015-08-16 15:28
Certificate.pm	15.95 KB	-rw-rw-rw-	2015-08-16 15:28
Cipher.pm	5.92 KB	-rw-rw-rw-	2015-08-16 15:28
Ciphertext.pm	7.01 KB	-rw-rw-rw-	2015-08-16 15:28
Compressed.pm	4.92 KB	-rw-rw-rw-	2015-08-16 15:28
Config.pm	3.01 KB	-rw-rw-rw-	2015-08-16 15:28
Constants.pm	2.39 KB	-rw-rw-rw-	2015-08-16 15:28
Digest.pm	4.36 KB	-rw-rw-rw-	2015-08-16 15:28
ErrorHandler.pm	2.37 KB	-rw-rw-rw-	2015-08-16 15:28
Key.pm	6.11 KB	-rw-rw-rw-	2015-08-16 15:28
KeyBlock.pm	3.64 KB	-rw-rw-rw-	2015-08-16 15:28
KeyRing.pm	8.08 KB	-rw-rw-rw-	2015-08-16 15:28
KeyServer.pm	4.32 KB	-rw-rw-rw-	2015-08-16 15:28
MDC.pm	2.5 KB	-rw-rw-rw-	2015-08-16 15:28
Marker.pm	893 B	-rw-rw-rw-	2015-08-16 15:28
Message.pm	4.32 KB	-rw-rw-rw-	2015-08-16 15:28
OnePassSig.pm	1.46 KB	-rw-rw-rw-	2015-08-16 15:28
PacketFactory.pm	8.63 KB	-rw-rw-rw-	2015-08-16 15:28
Plaintext.pm	3.24 KB	-rw-rw-rw-	2015-08-16 15:28
S2k.pm	6.05 KB	-rw-rw-rw-	2015-08-16 15:28
SKSessionKey.pm	6.15 KB	-rw-rw-rw-	2015-08-16 15:28
SessionKey.pm	6.69 KB	-rw-rw-rw-	2015-08-16 15:28
Signature.pm	12.44 KB	-rw-rw-rw-	2015-08-16 15:28
Trust.pm	797 B	-rw-rw-rw-	2015-08-16 15:28
UserID.pm	2.03 KB	-rw-rw-rw-	2015-08-16 15:28
Util.pm	4.85 KB	-rw-rw-rw-	2015-08-16 15:28
Words.pm	11.23 KB	-rw-rw-rw-	2015-08-16 15:28

Rename

package Crypt::OpenPGP::UserID;
use strict;

use Crypt::OpenPGP::ErrorHandler;
use base qw( Crypt::OpenPGP::ErrorHandler );

sub new {
    my $id = bless { }, shift;
    $id->init(@_);
}

sub init {
    my $id = shift;
    my %param = @_;
    if (my $ident = $param{Identity}) {
        $id->{id} = $ident;
    }
    $id;
}

sub id { $_[0]->{id} }
sub parse {
    my $class = shift;
    my($buf) = @_;
    my $id = $class->new;
    $id->{id} = $buf->bytes;
    $id;
}

sub save { $_[0]->{id} }

1;
__END__

=head1 NAME

Crypt::OpenPGP::UserID - PGP User ID packet

=head1 SYNOPSIS

use Crypt::OpenPGP::UserID;

my $uid = Crypt::OpenPGP::UserID->new( Identity => 'Foo' );
    my $serialized = $uid->save;
    my $identity = $uid->id;

=head1 DESCRIPTION

I<Crypt::OpenPGP::UserID> is a PGP User ID packet. Such a packet is
used to represent the name and email address of the key holder,
and typically contains an RFC822 mail name like

Foo Bar <foo@bar.com>

=head1 USAGE

=head2 Crypt::OpenPGP::UserID->new( [ Identity => $identity ] )

Creates a new User ID packet object and returns that object. If you
do not supply an identity, the object is created empty; this is used,
for example, in I<parse> (below), to create an empty packet which is
then filled from the data in the buffer.

If you wish to initialize a non-empty object, supply I<new> with
the I<Identity> parameter along with a value I<$identity> which
should generally be in RFC822 form (above).

=head2 $uid->save

Returns the text of the user ID packet; this is the string passed to
I<new> (above) as I<$identity>, for example.

=head2 Crypt::OpenPGP::UserID->parse($buffer)

Given I<$buffer>, a I<Crypt::OpenPGP::Buffer> object holding (or
with offset pointing to) a User ID packet, returns a new
<Crypt::OpenPGP::UserID> object, initialized with the user ID data
in the buffer.

=head2 $uid->id

Returns the user ID data (eg. the string passed as I<$identity> to
I<new>, above).

=head1 AUTHOR & COPYRIGHTS

Please see the Crypt::OpenPGP manpage for author, copyright, and
license information.

=cut