Searched refs:comp_meth_len (Results 1 – 2 of 2) sorted by relevance
38 $self->{comp_meth_len} = 0;62 my $comp_meth_len = unpack('C', substr($self->data, $ptr));64 my @comp_meths = unpack('C*', substr($self->data, $ptr, $comp_meth_len));65 $ptr += $comp_meth_len;89 $self->comp_meth_len($comp_meth_len);99 print " Compression Method Len:".$comp_meth_len."\n";143 $data .= pack('C', $self->comp_meth_len);216 sub comp_meth_len subroutine220 $self->{comp_meth_len} = shift;222 return $self->{comp_meth_len};
108 $message->comp_meth_len(scalar @comp);