Lines Matching refs:data
23 $data,
35 $data,
61 my $p_len = unpack('n', $self->data);
63 my $p = substr($self->data, $ptr, $p_len);
66 my $g_len = unpack('n', substr($self->data, $ptr));
68 my $g = substr($self->data, $ptr, $g_len);
71 my $pub_key_len = unpack('n', substr($self->data, $ptr));
73 my $pub_key = substr($self->data, $ptr, $pub_key_len);
81 $sigalg = unpack('n', substr($self->data, $ptr));
86 my $sig_len = unpack('n', substr($self->data, $ptr));
89 $sig = substr($self->data, $ptr, $sig_len);
106 my $data;
108 $data = pack('n', length($self->p));
109 $data .= $self->p;
110 $data .= pack('n', length($self->g));
111 $data .= $self->g;
112 $data .= pack('n', length($self->pub_key));
113 $data .= $self->pub_key;
114 $data .= pack('n', $self->sigalg) if ($self->sigalg != -1);
116 $data .= pack('n', length($self->signature));
117 $data .= $self->signature;
120 $self->data($data);
