Lines Matching refs:data
24 $data,
32 $data,
52 my ($server_version) = unpack('n', $self->data);
55 my $random = substr($self->data, $ptr, 32);
59 $session_id_len = unpack('C', substr($self->data, $ptr));
61 $session = substr($self->data, $ptr, $session_id_len);
64 my $ciphersuite = unpack('n', substr($self->data, $ptr));
67 $comp_meth = unpack('C', substr($self->data, $ptr));
70 my $extensions_len = unpack('n', substr($self->data, $ptr));
76 #For now we just deal with this as a block of data. In the future we will
80 $extension_data = substr($self->data, $ptr);
86 if (length($self->data) != $ptr) {
130 #Perform any actions necessary based on the data we've seen
138 #Reconstruct the on-the-wire message data following changes
142 my $data;
145 $data = pack('n', $self->server_version);
146 $data .= $self->random;
147 $data .= pack('C', $self->session_id_len);
148 $data .= $self->session;
149 $data .= pack('n', $self->ciphersuite);
150 $data .= pack('C', $self->comp_meth);
164 $data .= pack('n', length($extensions));
165 $data .= $extensions;
166 $self->data($data);