File Coverage

blib/lib/IO/Compress/Lzf.pm

Criterion	Covered	Total	%
statement	40	41	97.5
branch	3	4	75.0
condition			n/a
subroutine	14	15	93.3
pod	2	9	22.2
total	59	69	85.5

package IO::Compress::Lzf ;

use strict ;
use warnings;
require Exporter ;
use bytes;

use IO::Compress::Base 2.204 ;

use IO::Compress::Base::Common  2.204 qw(createSelfTiedObject);
use IO::Compress::Adapter::Lzf  2.204 ;
#use Compress::Lzf ;

our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $LzfError);

$VERSION = '2.204';
$LzfError = '';

@ISA    = qw( IO::Compress::Base Exporter );
@EXPORT_OK = qw( $LzfError lzf ) ;
%EXPORT_TAGS = %IO::Compress::Base::EXPORT_TAGS ;
push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
Exporter::export_ok_tags('all');

sub new
{
    my $class = shift ;

    my $obj = createSelfTiedObject($class, \$LzfError);
    return $obj->_create(undef, @_);
}

sub lzf
{
    my $obj = createSelfTiedObject(undef, \$LzfError);
    return $obj->_def(@_);
}

sub mkHeader
{
    my $self = shift ;
    my $param = shift ;

    return '';

}

sub ckParams
{
    my $self = shift ;
    my $got = shift;

    return 1 ;
}


sub mkComp
{
    my $self = shift ;
    my $got = shift ;

    my ($obj, $errstr, $errno) =  IO::Compress::Adapter::Lzf::mkCompObject(
                                              $got->getValue('blocksize'),
                                          );

    return $self->saveErrorString(undef, $errstr, $errno)
        if ! defined $obj;

    return $obj;

}


sub mkTrailer
{
    my $self = shift ;
    return "";
}

sub mkFinalTrailer
{
    my $self = shift ;

    # If nothing written at all, need to create an zero-length block
    return 'ZV'. pack("Cn", 0, 0)
        if *$self->{Compress}->uncompressedBytes() == 0 ;

    return '';
}

#sub newHeader
#{
#    my $self = shift ;
#    return '';
#}

our %PARAMS = (
    'blocksize' => [IO::Compress::Base::Common::Parse_unsigned,  (64* 1024) - 1],
    );

sub getExtraParams
{
    return %PARAMS ;
}

sub getInverseClass
{
    return ('IO::Uncompress::UnLzf');
}

1;

__END__