#!/usr/bin/env perl6

use v6;
use Sake;

sub MAIN (*@tasks, :$file = 'Sakefile') {
    die "No tasks given!" unless +@tasks > 0;
    die "Could not find file $file!" unless $file.IO.path ~~ :e;
    slurp($file).eval;
    for @tasks -> $t {  execute($t); }
}

