view release on metacpan or  search on metacpan

author/fatpack.pl  view on Meta::CPAN

        my $run = run( \@cmd, out => $fatline, autochomp => 1 );

        #dmsg($run);

        $fatstr = join "\n", $run->out->lines_utf8;

        my $fatout = $in->basename;
        $fatout = path("$outdir/$fatout")->spew_utf8($fatstr);

        # S_IXOTH  (00001)  execute/search by others
        $fatout->chmod(
            S_IRUSR | S_IRGRP | S_IROTH | S_IXUSR | S_IXGRP | S_IXOTH );

        success("Written to: $fatout");
    }
}

fatpack()