Lines Matching refs:data
19 $data,
27 $data,
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));
68 #For now we just deal with this as a block of data. In the future we will
70 my $extension_data = substr($self->data, $ptr);
130 #Reconstruct the on-the-wire message data following changes
134 my $data;
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});
161 $data .= pack('n', length($extensions));
162 $data .= $extensions;
164 $self->data($data);