File Coverage

blib/lib/IO/Compress/Xz.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

package IO::Compress::Xz ;

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

use IO::Compress::Base 2.072 ;
use IO::Compress::Base::Common  2.072 qw(createSelfTiedObject);
use IO::Compress::Adapter::Xz 2.072 ;
use Compress::Raw::Lzma  2.072 ;


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

$VERSION = '2.072';
$XzError = '';

@ISA    = qw(Exporter IO::Compress::Base);
@EXPORT_OK = qw( $XzError xz ) ;
%EXPORT_TAGS = %IO::Compress::Base::EXPORT_TAGS ;

push @{ $EXPORT_TAGS{constants} }, @Compress::Raw::Lzma::EXPORT;
$EXPORT_TAGS{all} = $EXPORT_TAGS{constants} ;

push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
Exporter::export_ok_tags('all');


sub new
{
    my $class = shift ;

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

sub xz
{
    my $obj = createSelfTiedObject(undef, \$XzError);
    $obj->_def(@_);
}


sub mkHeader
{
    my $self = shift ;
    return '';

}
our %PARAMS = (
        'preset' => [IO::Compress::Base::Common::Parse_unsigned, LZMA_PRESET_DEFAULT],
        'extreme'=> [IO::Compress::Base::Common::Parse_boolean, 0],
        'check'  => [IO::Compress::Base::Common::Parse_unsigned, LZMA_CHECK_CRC32],
    );

sub getExtraParams
{
    return %PARAMS ;
}



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

    # TODO - validate the parameters

    return 1 ;
}


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

    my ($obj, $errstr, $errno)
        = IO::Compress::Adapter::Xz::mkCompObject($got->getValue('preset'),
                                                  $got->getValue('extreme'),
                                                  $got->getValue('check')
                                                 );

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

    return $obj;
}


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

sub mkFinalTrailer
{
    return '';
}

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

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

sub getFileInfo
{
    my $self = shift ;
    my $params = shift;
    my $file = shift ;

}

1;

__END__