File Coverage

blib/lib/Compress/LZW.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	28	28	100.0

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

use strictures;

use base 'Exporter';

BEGIN {
  our @EXPORT      = qw/compress decompress/;
  our @EXPORT_OK   = qw(
    $MAGIC       $MASK_BITS    $MASK_BLOCK
    $RESET_CODE  $BL_INIT_CODE $NR_INIT_CODE
    $INIT_CODE_SIZE
  );
  our %EXPORT_TAGS = (
    const => \@EXPORT_OK,
  );
}

our $MAGIC          = "\037\235";
our $MASK_BITS      = 0x1f;
our $MASK_BLOCK     = 0x80;
our $RESET_CODE     = 256;
our $BL_INIT_CODE   = 257;
our $NR_INIT_CODE   = 256;
our $INIT_CODE_SIZE = 9;

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 );
}


1;

__END__