Lines Matching +full:data +full:- +full:shift

1 # Copyright 2016-2024 The OpenSSL Project Authors. All Rights Reserved.
20     my $class = shift;
26         $data,
31     my $self = $class->SUPER::new(
38         $data,
43     $self->{server_version} = 0;
44     $self->{cookie_len} = 0;
45     $self->{cookie} = "";
52     my $self = shift;
54     my ($server_version) = unpack('n', $self->data);
56     my $cookie_len = unpack('C', substr($self->data, $ptr));
58     my $cookie = substr($self->data, $ptr, $cookie_len);
60     $self->server_version($server_version);
61     $self->cookie_len($cookie_len);
62     $self->cookie($cookie);
64     $self->process_data();
70 #Perform any actions necessary based on the data we've seen
73     my $self = shift;
74     #Intentional no-op
77 #Reconstruct the on-the-wire message data following changes
80     my $self = shift;
81     my $data;
83     $data = pack('n', $self->server_version);
84     $data .= pack('C', $self->cookie_len);
85     $data .= $self->cookie;
87     $self->data($data);
93     my $self = shift;
95       $self->{server_version} = shift;
97     return $self->{server_version};
101     my $self = shift;
103       $self->{cookie_len} = shift;
105     return $self->{cookie_len};
109     my $self = shift;
111       $self->{cookie} = shift;
113     return $self->{cookie};