package PGP::Packet::Userid;

use strict;
use vars qw(@ISA);

@ISA = qw(PGP::Packet);

sub new {
    my ($classname, $bodyref, $packetref) = @_;

    bless $classname->SUPER::new(13, $bodyref, $packetref), $classname;
}

sub name {
    my ($self) = @_;

    return($ {$self->{"bodyref"}});
}

sub hashdata {
    my ($self, $version) = @_;
    
    if ($version <= 3) {
	return(pack("n", length($ {$self->bodyref}).
		    $ {$self->bodyref}));
    } elsif ($version == 4) {
	return("\xb4".
	       pack("N", length($ {$self->bodyref}).
		    $ {$self->bodyref}));
    };
}

1;