Lines Matching refs:self
28 my $self = $class->SUPER::new(
40 $self->{sigalg} = -1;
41 $self->{signature} = "";
43 return $self;
48 my $self = shift;
51 my $remdata = $self->data;
52 my $record = ${$self->records}[0];
69 $self->sigalg($sigalg);
70 $self->signature($sig);
76 my $self = shift;
78 my $sig = $self->signature();
79 my $olddata = $self->data();
81 $data .= pack("n", $self->sigalg()) if ($self->sigalg() != -1);
85 $self->data($data);
91 my $self = shift;
93 $self->{sigalg} = shift;
95 return $self->{sigalg};
99 my $self = shift;
101 $self->{signature} = shift;
103 return $self->{signature};
