File Coverage

blib/lib/IO/Compress/Zstd.pm

Criterion	Covered	Total	%
statement	42	43	97.6
branch	1	2	50.0
condition			n/a
subroutine	15	16	93.7
pod	2	9	22.2
total	60	70	85.7

package IO::Compress::Zstd ;

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::Zstd 2.204 ;
use Compress::Stream::Zstd qw(ZSTD_MAX_CLEVEL);


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

$VERSION = '2.204';
$ZstdError = '';

@ISA    = qw( IO::Compress::Base Exporter );
@EXPORT_OK = qw( $ZstdError zstd ZSTD_MAX_CLEVEL ) ;
%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, \$ZstdError);
    return $obj->_create(undef, @_);
}

sub zstd
{
    my $obj = createSelfTiedObject(undef, \$ZstdError);
    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::Zstd::mkCompObject(
                                              $got->getValue('level'),
                                          );

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

    return $obj;

}


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

sub mkFinalTrailer
{
    my $self = shift ;

    return '';
}

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

our %PARAMS = (
    'level' => [IO::Compress::Base::Common::Parse_unsigned,  3],
    );

sub getExtraParams
{
    return %PARAMS ;
}

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

1;

__END__