gistfile1.txt

use v6;
use File::Find;

sub is-git-top($dir) {
    # shell('git rev-parse --is-inside-work-tree >&/dev/null').exitcode == 0;
    #    && shell('git rev-parse --is-inside-git-dir >&/dev/null').exitcode != 0;

    $dir.child(".git").d;
}

sub MAIN($search-string) {
    for find(dir => '.', type => 'dir').grep({ is-git-top($_) }) -> $dir {
        my $cwd = $*CWD;
        chdir $dir;
        
        for qqx/git branch --list $search-string/.lines -> $branch {
            say "$dir $branch";
        }
        
        chdir $cwd;
    }
}