#!/usr/bin/env perl
use
5.22.1;
use
warnings;
my
$p
= proc {
"git"
,
"archive"
,
"--format=tar"
,
"--prefix=Process-Pipeline/"
,
"HEAD"
}
proc { set
">"
=>
"Process-Pipeline.tar.gz"
;
"gzip"
};
my
$r
=
$p
->start;
say
$r
->is_success ?
"success"
:
"fail"
;