Lines Matching +full:data +full:- +full:shift
17 my $class = shift;
19 $data,
24 my $self = $class->SUPER::new(
27 $data,
32 $self->{extension_data} = "";
39 my $self = shift;
42 if (TLSProxy::Proxy->is_tls13()) {
43 my $request_ctx_len = unpack('C', $self->data);
44 my $request_ctx = substr($self->data, $ptr, $request_ctx_len);
47 my $extensions_len = unpack('n', substr($self->data, $ptr));
49 my $extension_data = substr($self->data, $ptr);
60 $self->extension_data(\%extensions);
64 # else parse TLSv1.2 version - we don't support that at the moment
67 #Reconstruct the on-the-wire message data following changes
70 my $self = shift;
71 my $data;
74 foreach my $key (keys %{$self->extension_data}) {
75 my $extdata = ${$self->extension_data}{$key};
81 $data = pack('n', length($extensions));
82 $data .= $extensions;
83 $self->data($data);
89 my $self = shift;
91 $self->{extension_data} = shift;
93 return $self->{extension_data};
98 $self->{extension_data}{$ext_type} = $ext_data;
103 delete $self->{extension_data}{$ext_type};