App-Rakubrew
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/App/Rakubrew/Tools.pm view on Meta::CPAN
use File::Basename;
use Carp qw(croak);
sub run {
system(@_) and croak "Failed running ".$_[0]
}
sub slurp {
my $file = shift;
open(my $fh, '<', $file);
local $/ = '';
my $ret = <$fh>;
close($fh);
return $ret // '';
}
sub spurt {
my ($file, $cont) = @_;
open(my $fh, '>', $file);
say $fh $cont;
close($fh);
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.659 second using v1.00-cache-2.02-grep-82fe00e-cpan-d29e8ade9f55 )