package PGP::Packet::Pubkey;

use strict;
use vars qw(@ISA);

use PGP::Packet::base_pubkey;

@ISA = qw(PGP::Packet::base_pubkey);

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

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

1;