File Coverage

blib/lib/Compress/LZMA/External.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	2	4	50.0
condition	2	4	50.0
subroutine	10	10	100.0
pod	0	4	0.0
total	49	57	85.9

package Compress::LZMA::External;
use strict;
use warnings;
use File::Spec::Functions;
use File::Temp qw(tempfile);
use IO::File;
our @ISA       = qw(Exporter);
our @EXPORT_OK = qw(compress_fast compress compress_best decompress);
our $VERSION   = '0.37';

sub compress_fast ($) {
    my $data = shift;
    return _call( $data, 'data.txt', 'lzma -c --fast -f' );
}

sub compress ($) {
    my $data = shift;
    return _call( $data, 'data.txt', 'lzma -c -f' );
}

sub compress_best ($) {
    my $data = shift;
    return _call( $data, 'data.txt', 'lzma -c --best -f' );
}

sub decompress ($) {
    my $data = shift;
    return _call( $data, 'data.txt.lzma', 'lzma -c -d -f' );
}

sub _call {
    my ( $in, $filename, $command ) = @_;
    my $dir  = File::Temp->newdir();
    my $path = catfile( $dir, $filename );
    my $fh   = IO::File->new("> $path") || die "Error opening $path: $!";
    $fh->print($in) || die "Error writing to $path: $!";
    $fh->close || die "Error closing $path: $!";
    $fh = IO::File->new("$command $path |") || die "Error opening lzma: $!";
    my $out;

    while ( !$fh->eof ) {
        $out .= <$fh>;
    }
    unlink($filename);
    return $out;
}

1;

__END__