Searched refs:comp_meth_len (Results 1 – 2 of 2) sorted by relevance
51 $self->{comp_meth_len} = 0;83 my $comp_meth_len = unpack('C', substr($self->data, $ptr));85 my @comp_meths = unpack('C*', substr($self->data, $ptr, $comp_meth_len));86 $ptr += $comp_meth_len;112 $self->comp_meth_len($comp_meth_len);125 print " Compression Method Len:".$comp_meth_len."\n";175 $data .= pack('C', $self->comp_meth_len);264 sub comp_meth_len subroutine268 $self->{comp_meth_len} = shift;270 return $self->{comp_meth_len};
198 $message->comp_meth_len(scalar @comp);