Lines Matching +full:isa +full:- +full:extensions

12 use vars '@ISA';
13 push @ISA, 'TLSProxy::Message';
24     my $self = $class->SUPER::new(
32     $self->{extension_data} = "";
41     my $extensions_len = unpack('n', $self->data);
48         $extension_data = substr($self->data, 2);
54         if (length($self->data) != 2) {
59     my %extensions = ();
64         $extensions{$type} = $extdata;
67     $self->extension_data(\%extensions);
69     print "    Extensions Len:".$extensions_len."\n";
72 #Reconstruct the on-the-wire message data following changes
77     my $extensions = "";
79     foreach my $key (keys %{$self->extension_data}) {
80         my $extdata = ${$self->extension_data}{$key};
81         $extensions .= pack("n", $key);
82         $extensions .= pack("n", length($extdata));
83         $extensions .= $extdata;
86     $data = pack('n', length($extensions));
87     $data .= $extensions;
88     $self->data($data);
96         $self->{extension_data} = shift;
98     return $self->{extension_data};
103     $self->{extension_data}{$ext_type} = $ext_data;
108     delete $self->{extension_data}{$ext_type};