Lines Matching refs:ptr
62 my $ptr = 2;
64 my $random = substr($self->data, $ptr, 32);
65 $ptr += 32;
66 my $session_id_len = unpack('C', substr($self->data, $ptr));
67 $ptr++;
68 my $session = substr($self->data, $ptr, $session_id_len);
69 $ptr += $session_id_len;
73 $legacy_cookie_len = unpack('C', substr($self->data, $ptr));
74 $ptr++;
75 $legacy_cookie = substr($self->data, $ptr, $legacy_cookie_len);
76 $ptr += $legacy_cookie_len;
78 my $ciphersuite_len = unpack('n', substr($self->data, $ptr));
79 $ptr += 2;
80 my @ciphersuites = unpack('n*', substr($self->data, $ptr,
82 $ptr += $ciphersuite_len;
83 my $comp_meth_len = unpack('C', substr($self->data, $ptr));
84 $ptr++;
85 my @comp_meths = unpack('C*', substr($self->data, $ptr, $comp_meth_len));
86 $ptr += $comp_meth_len;
87 my $extensions_len = unpack('n', substr($self->data, $ptr));
88 $ptr += 2;
91 my $extension_data = substr($self->data, $ptr);
