Lines Matching refs:self

35     my $self = $class->SUPER::new(
47     $self->{server_version} = 0;
48     $self->{random} = [];
49     $self->{session_id_len} = 0;
50     $self->{session} = "";
51     $self->{ciphersuite} = 0;
52     $self->{comp_meth} = 0;
53     $self->{extension_data} = "";
55     return $self;
60     my $self = shift;
62     my ($server_version) = unpack('n', $self->data);
65     my $random = substr($self->data, $ptr, 32);
69     $session_id_len = unpack('C', substr($self->data, $ptr));
71     $session = substr($self->data, $ptr, $session_id_len);
74     my $ciphersuite = unpack('n', substr($self->data, $ptr));
77     $comp_meth = unpack('C', substr($self->data, $ptr));
80     my $extensions_len = unpack('n', substr($self->data, $ptr));
90         $extension_data = substr($self->data, $ptr);
96         if (length($self->data) != $ptr) {
121     $self->server_version($server_version);
122     $self->random($random);
123     $self->session_id_len($session_id_len);
124     $self->session($session);
125     $self->ciphersuite($ciphersuite);
127     $self->comp_meth($comp_meth);
128     $self->extension_data(\%extensions);
130     $self->process_data();
143     my $self = shift;
145     TLSProxy::Message->ciphersuite($self->ciphersuite);
151     my $self = shift;
155     $data = pack('n', $self->server_version);
156     $data .= $self->random;
157     $data .= pack('C', $self->session_id_len);
158     $data .= $self->session;
159     $data .= pack('n', $self->ciphersuite);
160     $data .= pack('C', $self->comp_meth);
162     foreach my $key (keys %{$self->extension_data}) {
163         my $extdata = ${$self->extension_data}{$key};
167         if ($key == $self->dupext) {
176     $self->data($data);
182     my $self = shift;
184       $self->{server_version} = shift;
186     return $self->{server_version};
190     my $self = shift;
192       $self->{random} = shift;
194     return $self->{random};
198     my $self = shift;
200       $self->{session_id_len} = shift;
202     return $self->{session_id_len};
206     my $self = shift;
208       $self->{session} = shift;
210     return $self->{session};
214     my $self = shift;
216       $self->{ciphersuite} = shift;
218     return $self->{ciphersuite};
222     my $self = shift;
224       $self->{comp_meth} = shift;
226     return $self->{comp_meth};
230     my $self = shift;
232       $self->{extension_data} = shift;
234     return $self->{extension_data};
238     my ($self, $ext_type, $ext_data) = @_;
239     $self->{extension_data}{$ext_type} = $ext_data;
243     my ($self, $ext_type) = @_;
244     delete $self->{extension_data}{$ext_type};