Certificate.pm - OpenGrok cross reference for /openssl/util/perl/TLSProxy/Certificate.pm

Lines Matching refs:self
28     my $self = $class->SUPER::new(
40     $self->{first_certificate} = "";
41     $self->{extension_data} = "";
42     $self->{remaining_certdata} = "";
44     return $self;
49     my $self = shift;
52         my $context_len = unpack('C', $self->data);
53         my $context = substr($self->data, 1, $context_len);
55         my $remdata = substr($self->data, 1 + $context_len);
99         $self->context($context);
100         $self->first_certificate($certdata);
101         $self->extension_data(\%extensions);
102         $self->remaining_certdata($remdata);
109         my ($hicertlistlen, $certlistlen) = unpack('Cn', $self->data);
112         my $remdata = substr($self->data, 3);
128         $self->first_certificate($certdata);
129         $self->remaining_certdata($remdata);
139     my $self = shift;
144         foreach my $key (keys %{$self->extension_data}) {
145             my $extdata = ${$self->extension_data}{$key};
150         $data = pack('C', length($self->context()));
151         $data .= $self->context;
152         my $certlen = length($self->first_certificate);
154                           + length($self->remaining_certdata);
163         $data .= $self->remaining_certdata();
164         $self->data($data);
166         my $certlen = length($self->first_certificate);
167         my $certlistlen = $certlen + length($self->remaining_certdata);
174         $data .= $self->remaining_certdata();
175         $self->data($data);
182     my $self = shift;
184       $self->{context} = shift;
186     return $self->{context};
190     my $self = shift;
192       $self->{first_certificate} = shift;
194     return $self->{first_certificate};
198     my $self = shift;
200       $self->{remaining_certdata} = shift;
202     return $self->{remaining_certdata};
206     my $self = shift;
208       $self->{extension_data} = shift;
210     return $self->{extension_data};
214     my ($self, $ext_type, $ext_data) = @_;
215     $self->{extension_data}{$ext_type} = $ext_data;
219     my ($self, $ext_type) = @_;
220     delete $self->{extension_data}{$ext_type};