Lines Matching refs:self
428 my $self = {
438 return bless $self, $class;
454 my $self = shift;
457 my $numrecs = $#{$self->records};
459 $self->set_message_contents();
464 $lenlo = length($self->data) & 0xff;
465 $lenhi = length($self->data) >> 8;
466 $msgdata = pack('CnC', $self->mt, $lenhi, $lenlo).$self->data;
470 my ($rec) = @{$self->records};
478 if (@{$self->message_frag_lens}) {
479 $old_length = ${$self->message_frag_lens}[0] +
485 my $prefix = substr($recdata, 0, $self->startoffset);
486 my $suffix = substr($recdata, $self->startoffset + $old_length);
527 ${$self->message_frag_lens}[0] = length($msgdata)
535 foreach my $rec (@{$self->records}) {
539 my $remainlen = length($recdata) - $self->startoffset;
540 $rec->data(substr($recdata, 0, $self->startoffset)
563 my $self = shift;
564 return $self->{server};
570 my $self = shift;
572 $self->{mt} = shift;
574 return $self->{mt};
578 my $self = shift;
580 $self->{data} = shift;
582 return $self->{data};
586 my $self = shift;
588 $self->{records} = shift;
590 return $self->{records};
594 my $self = shift;
596 $self->{startoffset} = shift;
598 return $self->{startoffset};
602 my $self = shift;
604 $self->{message_frag_lens} = shift;
606 return $self->{message_frag_lens};
610 my $self = shift;
611 return TLS_MESSAGE_HEADER_LENGTH + length($self->data);
615 my $self = shift;
617 $self->{dupext} = shift;
619 return $self->{dupext};