Lines Matching refs:self
28 my $self = $class->SUPER::new(
41 $self->{p} = "";
42 $self->{g} = "";
43 $self->{pub_key} = "";
44 $self->{sigalg} = -1;
45 $self->{sig} = "";
47 return $self;
52 my $self = shift;
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);
77 my $record = ${$self->records}[0];
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);
94 $self->p($p);
95 $self->g($g);
96 $self->pub_key($pub_key);
97 $self->sigalg($sigalg) if defined $sigalg;
98 $self->signature($sig);
105 my $self = shift;
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);
115 if (length($self->signature) > 0) {
116 $data .= pack('n', length($self->signature));
117 $data .= $self->signature;
120 $self->data($data);
127 my $self = shift;
129 $self->{p} = shift;
131 return $self->{p};
135 my $self = shift;
137 $self->{g} = shift;
139 return $self->{g};
143 my $self = shift;
145 $self->{pub_key} = shift;
147 return $self->{pub_key};
151 my $self = shift;
153 $self->{sigalg} = shift;
155 return $self->{sigalg};
159 my $self = shift;
161 $self->{sig} = shift;
163 return $self->{sig};
