Lines Matching refs:self
28 my $self = $class->SUPER::new(
40 $self->{extension_data} = "";
42 return $self;
47 my $self = shift;
49 my $extensions_len = unpack('n', $self->data);
56 $extension_data = substr($self->data, 2);
62 if (length($self->data) != 2) {
75 $self->extension_data(\%extensions);
83 my $self = shift;
87 foreach my $key (keys %{$self->extension_data}) {
88 my $extdata = ${$self->extension_data}{$key};
96 $self->data($data);
102 my $self = shift;
104 $self->{extension_data} = shift;
106 return $self->{extension_data};
110 my ($self, $ext_type, $ext_data) = @_;
111 $self->{extension_data}{$ext_type} = $ext_data;
115 my ($self, $ext_type) = @_;
116 delete $self->{extension_data}{$ext_type};
