Lines Matching refs:comp_meth
42 $self->{comp_meth} = 0;
66 my $comp_meth = 0;
67 $comp_meth = unpack('C', substr($self->data, $ptr));
117 $self->comp_meth($comp_meth);
126 print " Compression Method:".$comp_meth."\n";
150 $data .= pack('C', $self->comp_meth);
210 sub comp_meth
214 $self->{comp_meth} = shift;
216 return $self->{comp_meth};