Lines Matching refs:extension_data
54 $self->{extension_data} = "";
91 my $extension_data = substr($self->data, $ptr);
93 if (length($extension_data) != $extensions_len) {
97 while (length($extension_data) >= 4) {
98 my ($type, $size) = unpack("nn", $extension_data);
99 my $extdata = substr($extension_data, 4, $size);
100 $extension_data = substr($extension_data, 4 + $size);
115 $self->extension_data(\%extensions);
133 my %extensions = %{$self->extension_data};
149 my $extdata = ${$self->extension_data}{$key};
178 foreach my $key (keys %{$self->extension_data}) {
185 if (defined ${$self->extension_data}{TLSProxy::Message::EXT_PSK}) {
189 if (defined ${$self->extension_data}{TLSProxy::Message::EXT_FORCE_LAST}) {
288 sub extension_data subroutine
292 $self->{extension_data} = shift;
294 return $self->{extension_data};
299 $self->{extension_data}{$ext_type} = $ext_data;
304 delete $self->{extension_data}{$ext_type};