Lines Matching refs:self
28 my $self = $class->SUPER::new(
40 $self->{extension_data} = "";
42 return $self;
47 my $self = shift;
51 my $request_ctx_len = unpack('C', $self->data);
52 my $request_ctx = substr($self->data, $ptr, $request_ctx_len);
55 my $extensions_len = unpack('n', substr($self->data, $ptr));
57 my $extension_data = substr($self->data, $ptr);
68 $self->extension_data(\%extensions);
78 my $self = shift;
82 foreach my $key (keys %{$self->extension_data}) {
83 my $extdata = ${$self->extension_data}{$key};
91 $self->data($data);
97 my $self = shift;
99 $self->{extension_data} = shift;
101 return $self->{extension_data};
105 my ($self, $ext_type, $ext_data) = @_;
106 $self->{extension_data}{$ext_type} = $ext_data;
110 my ($self, $ext_type) = @_;
111 delete $self->{extension_data}{$ext_type};