Lines Matching refs:self
24 my $self = $class->SUPER::new(
32 $self->{extension_data} = "";
34 return $self;
39 my $self = shift;
41 my $extensions_len = unpack('n', $self->data);
48 $extension_data = substr($self->data, 2);
54 if (length($self->data) != 2) {
67 $self->extension_data(\%extensions);
75 my $self = shift;
79 foreach my $key (keys %{$self->extension_data}) {
80 my $extdata = ${$self->extension_data}{$key};
88 $self->data($data);
94 my $self = shift;
96 $self->{extension_data} = shift;
98 return $self->{extension_data};
102 my ($self, $ext_type, $ext_data) = @_;
103 $self->{extension_data}{$ext_type} = $ext_data;
107 my ($self, $ext_type) = @_;
108 delete $self->{extension_data}{$ext_type};