Lines Matching refs:self

536     my $self = {
550     return bless $self, $class;
566     my $self = shift;
569     my $numrecs = $#{$self->records};
571     $self->set_message_contents();
573     my $lenlo = length($self->data) & 0xff;
574     my $lenhi = length($self->data) >> 8;
576     if ($self->{isdtls}) {
577         my $msgfraghi = $self->msgfrag >> 8;
578         my $msgfraglo = $self->msgfrag & 0xff;
579         my $msgfragoffshi = $self->msgfragoffs >> 8;
580         my $msgfragoffslo = $self->msgfragoffs & 0xff;
582         $msgdata = pack('CnCnnCnC', $self->mt, $lenhi, $lenlo, $self->msgseq,
584                                     $msgfragoffshi, $msgfragoffslo).$self->data;
586         $msgdata = pack('CnC', $self->mt, $lenhi, $lenlo).$self->data;
591         my ($rec) = @{$self->records};
595         my $msg_header_len = $self->{isdtls} ? DTLS_MESSAGE_HEADER_LENGTH
601         if (@{$self->message_frag_lens}) {
602             $old_length = ${$self->message_frag_lens}[0] + $msg_header_len;
607         my $prefix = substr($recdata, 0, $self->startoffset);
608         my $suffix = substr($recdata, $self->startoffset + $old_length);
649         ${$self->message_frag_lens}[0] = length($msgdata) - $msg_header_len;
656     foreach my $rec (@{$self->records}) {
660             my $remainlen = length($recdata) - $self->startoffset;
661             $rec->data(substr($recdata, 0, $self->startoffset)
684     my $self = shift;
685     return $self->{server};
691     my $self = shift;
693       $self->{mt} = shift;
695     return $self->{mt};
699     my $self = shift;
701         $self->{msgseq} = shift;
703     return $self->{msgseq};
707     my $self = shift;
709         $self->{msgfrag} = shift;
711     return $self->{msgfrag};
715     my $self = shift;
717         $self->{msgfragoffs} = shift;
719     return $self->{msgfragoffs};
723     my $self = shift;
725       $self->{data} = shift;
727     return $self->{data};
731     my $self = shift;
733       $self->{records} = shift;
735     return $self->{records};
739     my $self = shift;
741       $self->{startoffset} = shift;
743     return $self->{startoffset};
747     my $self = shift;
749       $self->{message_frag_lens} = shift;
751     return $self->{message_frag_lens};
755     my $self = shift;
756     my $msg_header_len = $self->{isdtls} ? DTLS_MESSAGE_HEADER_LENGTH
758     return $msg_header_len + length($self->data);
762     my $self = shift;
764         $self->{dupext} = shift;
766     return $self->{dupext};