Lines Matching refs:extension_data
33 $self->{extension_data} = "";
74 my $extension_data = "";
76 $extension_data = substr($remdata, 0, $extensions_len);
78 if (length($extension_data) != $extensions_len) {
83 while (length($extension_data) >= 4) {
84 my ($type, $size) = unpack("nn", $extension_data);
85 my $extdata = substr($extension_data, 4, $size);
86 $extension_data = substr($extension_data, 4 + $size);
93 $self->extension_data(\%extensions);
136 foreach my $key (keys %{$self->extension_data}) {
137 my $extdata = ${$self->extension_data}{$key};
196 sub extension_data subroutine
200 $self->{extension_data} = shift;
202 return $self->{extension_data};
207 $self->{extension_data}{$ext_type} = $ext_data;
212 delete $self->{extension_data}{$ext_type};