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);