#!/usr/bin/env perl6
use Panda::Fetcher;

sub MAIN($from, $to? is copy) {
    unless $to {
        note "Fetching to ./work";
        $to = 'work';
    }
    exit Panda::Fetcher.fetch($from.IO.absolute, $to.IO.absolute) ?? 0 !! 1;
}
