File Coverage

blib/lib/IO/Compress/Lzma.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::Lzma ;

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::Lzma 2.072 ;



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

$VERSION = '2.072';
$LzmaError = '';

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

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


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

}

our %PARAMS = ('filter' => [IO::Compress::Base::Common::Parse_any, [] ],
              );
sub getExtraParams
{
    return %PARAMS ;
}



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

    # TODO - test that Filter ISA Lzma::Filter::Lzma1

    return 1 ;
}


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

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

    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::UnLzma');
}

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

}

1;

__END__