File Coverage

blib/lib/Compress/LZW.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	1	2	50.0
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	35	37	94.5

package Compress::LZW;
{
  $Compress::LZW::VERSION = '0.03';
}
# ABSTRACT: Pure-Perl implementation of scaling LZW


use strictures;

use base 'Exporter';

BEGIN {
  our @EXPORT      = qw/compress decompress/;
  our @EXPORT_OK   = qw( $MAGIC $BITS_MASK $BLOCK_MASK $RESET_CODE );
  our %EXPORT_TAGS = (
    const => \@EXPORT_OK,
  );
}

our $MAGIC      = "\037\235";
our $BITS_MASK  = 0x1f;
our $BLOCK_MASK = 0x80;
our $RESET_CODE = 256;

use Compress::LZW::Compressor;
use Compress::LZW::Decompressor;


sub compress {
  my ( $str ) = @_;

  return Compress::LZW::Compressor->new()->compress( $str );
}



sub decompress {
  my ( $str ) = @_;

  return Compress::LZW::Decompressor->new()->decompress( $str );
}


sub _detect_lsb_first {
  use Config;

  return 1 if substr($Config{byteorder},0,4) eq '1234';
  return 0;
}



1;

__END__