Lines Matching refs:self

24     my $self = $class->SUPER::new(
32     $self->{client_version} = 0;
33     $self->{random} = [];
34     $self->{session_id_len} = 0;
35     $self->{session} = "";
36     $self->{ciphersuite_len} = 0;
37     $self->{ciphersuites} = [];
38     $self->{comp_meth_len} = 0;
39     $self->{comp_meths} = [];
40     $self->{extensions_len} = 0;
41     $self->{extension_data} = "";
43     return $self;
48     my $self = shift;
50     my ($client_version) = unpack('n', $self->data);
51     my $random = substr($self->data, $ptr, 32);
53     my $session_id_len = unpack('C', substr($self->data, $ptr));
55     my $session = substr($self->data, $ptr, $session_id_len);
57     my $ciphersuite_len = unpack('n', substr($self->data, $ptr));
59     my @ciphersuites = unpack('n*', substr($self->data, $ptr,
62     my $comp_meth_len = unpack('C', substr($self->data, $ptr));
64     my @comp_meths = unpack('C*', substr($self->data, $ptr, $comp_meth_len));
66     my $extensions_len = unpack('n', substr($self->data, $ptr));
70     my $extension_data = substr($self->data, $ptr);
83     $self->client_version($client_version);
84     $self->random($random);
85     $self->session_id_len($session_id_len);
86     $self->session($session);
87     $self->ciphersuite_len($ciphersuite_len);
88     $self->ciphersuites(\@ciphersuites);
89     $self->comp_meth_len($comp_meth_len);
90     $self->comp_meths(\@comp_meths);
91     $self->extensions_len($extensions_len);
92     $self->extension_data(\%extensions);
94     $self->process_extensions();
106     my $self = shift;
107     my %extensions = %{$self->extension_data};
119     my $self = shift;
123     my $extdata = ${$self->extension_data}{$key};
133     my $self = shift;
137     $data = pack('n', $self->client_version);
138     $data .= $self->random;
139     $data .= pack('C', $self->session_id_len);
140     $data .= $self->session;
141     $data .= pack('n', $self->ciphersuite_len);
142     $data .= pack("n*", @{$self->ciphersuites});
143     $data .= pack('C', $self->comp_meth_len);
144     $data .= pack("C*", @{$self->comp_meths});
146     foreach my $key (keys %{$self->extension_data}) {
148         $extensions .= $self->extension_contents($key);
150         $extensions .= $self->extension_contents($key) if ($key == $self->dupext);
153     if (defined ${$self->extension_data}{TLSProxy::Message::EXT_PSK}) {
154         $extensions .= $self->extension_contents(TLSProxy::Message::EXT_PSK);
157     if (defined ${$self->extension_data}{TLSProxy::Message::EXT_FORCE_LAST}) {
158         $extensions .= $self->extension_contents(TLSProxy::Message::EXT_FORCE_LAST);
164     $self->data($data);
170     my $self = shift;
172       $self->{client_version} = shift;
174     return $self->{client_version};
178     my $self = shift;
180       $self->{random} = shift;
182     return $self->{random};
186     my $self = shift;
188       $self->{session_id_len} = shift;
190     return $self->{session_id_len};
194     my $self = shift;
196       $self->{session} = shift;
198     return $self->{session};
202     my $self = shift;
204       $self->{ciphersuite_len} = shift;
206     return $self->{ciphersuite_len};
210     my $self = shift;
212       $self->{ciphersuites} = shift;
214     return $self->{ciphersuites};
218     my $self = shift;
220       $self->{comp_meth_len} = shift;
222     return $self->{comp_meth_len};
226     my $self = shift;
228       $self->{comp_meths} = shift;
230     return $self->{comp_meths};
234     my $self = shift;
236       $self->{extensions_len} = shift;
238     return $self->{extensions_len};
242     my $self = shift;
244       $self->{extension_data} = shift;
246     return $self->{extension_data};
250     my ($self, $ext_type, $ext_data) = @_;
251     $self->{extension_data}{$ext_type} = $ext_data;
255     my ($self, $ext_type) = @_;
256     delete $self->{extension_data}{$ext_type};