view release on metacpan or  search on metacpan

script/perl-gzip-script  view on Meta::CPAN

    "v|version" => sub { printf "v%vd\n", $VERSION; exit },
) or exit 1;

my $script = shift or die "Need SCRIPT argument.\n";

my $out = \*STDOUT;
if ($in_place) {
    $out = File::Temp->new(DIR => File::Basename::dirname($script))
}

$out->say($shebang);
$out->print(<<'EOF');
use IO::Uncompress::Gunzip ();
IO::Uncompress::Gunzip::gunzip \*DATA, \my $script, AutoClose => 1 or die $IO::Uncompress::Gunzip::GunzipError;
eval '#line 1 "' . __FILE__ . "\"\n" . $script;
die $@ if $@;
__DATA__
EOF

my $content = File::Slurper::read_binary($script);
my $content_gzip = Gzip::Libdeflate->new(level => 12)->compress($content) or die;