Lines Matching refs:comp_meth_len
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
220 $self->{comp_meth_len} = shift;
222 return $self->{comp_meth_len};