view release on metacpan or  search on metacpan

bin/lzf  view on Meta::CPAN

        }

        my $fh;
        my $data;
        {
            local $/;
            open $fh, "<", $file
                or die "lzf: Can't open '$file' for reading: $!\n";
            $data = <$fh>;
        }
        my @st = stat($fh) or die "lzf: Can't stat '$file': $!\n";

        my $newdata;
        my $newfile;
        if ($Opts{decompress}) {
            if ($Opts{pure_perl}) {
                require Compress::LZF_PP;
                $newdata = Compress::LZF_PP::decompress($data);
            } else {
                require Compress::LZF;
                $newdata = Compress::LZF::decompress($data);