Lines Matching defs:extension_data
32 $self->{extension_data} = "";
46 my $extension_data;
48 $extension_data = substr($self->data, 2);
50 if (length($extension_data) != $extensions_len) {
57 $extension_data = "";
60 while (length($extension_data) >= 4) {
61 my ($type, $size) = unpack("nn", $extension_data);
62 my $extdata = substr($extension_data, 4, $size);
63 $extension_data = substr($extension_data, 4 + $size);
67 $self->extension_data(\%extensions);
79 foreach my $key (keys %{$self->extension_data}) {
80 my $extdata = ${$self->extension_data}{$key};
92 sub extension_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};