Lines Matching refs:data
19 $data,
27 $data,
53 my $p_len = unpack('n', $self->data);
55 my $p = substr($self->data, $ptr, $p_len);
58 my $g_len = unpack('n', substr($self->data, $ptr));
60 my $g = substr($self->data, $ptr, $g_len);
63 my $pub_key_len = unpack('n', substr($self->data, $ptr));
65 my $pub_key = substr($self->data, $ptr, $pub_key_len);
73 $sigalg = unpack('n', substr($self->data, $ptr));
78 my $sig_len = unpack('n', substr($self->data, $ptr));
81 $sig = substr($self->data, $ptr, $sig_len);
94 #Reconstruct the on-the-wire message data following changes
98 my $data;
100 $data = pack('n', length($self->p));
101 $data .= $self->p;
102 $data .= pack('n', length($self->g));
103 $data .= $self->g;
104 $data .= pack('n', length($self->pub_key));
105 $data .= $self->pub_key;
106 $data .= pack('n', $self->sigalg) if ($self->sigalg != -1);
108 $data .= pack('n', length($self->signature));
109 $data .= $self->signature;
112 $self->data($data);