Lines Matching refs:self
24 my $self = $class->SUPER::new(
33 $self->{p} = "";
34 $self->{g} = "";
35 $self->{pub_key} = "";
36 $self->{sigalg} = -1;
37 $self->{sig} = "";
39 return $self;
44 my $self = shift;
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);
69 my $record = ${$self->records}[0];
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);
86 $self->p($p);
87 $self->g($g);
88 $self->pub_key($pub_key);
89 $self->sigalg($sigalg) if defined $sigalg;
90 $self->signature($sig);
97 my $self = shift;
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);
107 if (length($self->signature) > 0) {
108 $data .= pack('n', length($self->signature));
109 $data .= $self->signature;
112 $self->data($data);
119 my $self = shift;
121 $self->{p} = shift;
123 return $self->{p};
127 my $self = shift;
129 $self->{g} = shift;
131 return $self->{g};
135 my $self = shift;
137 $self->{pub_key} = shift;
139 return $self->{pub_key};
143 my $self = shift;
145 $self->{sigalg} = shift;
147 return $self->{sigalg};
151 my $self = shift;
153 $self->{sig} = shift;
155 return $self->{sig};