<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package PGP::Packet::Subkey;

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-&gt;SUPER::new(14, $bodyref, $packetref), $classname;
}

1;
</pre></body></html>