output

zoffix@zoffix-VirtualBox:~/CPANPRC/party$ perl6 bin/bailer.p6 
.
t
.git
bin
foo
design-docs
lib
.git/logs
.git/hooks
.git/refs
.git/info
.git/objects
.git/branches
foo/bar
design-docs/meow
design-docs/bar
.git/logs/refs
.git/refs/heads
.git/refs/tags
.git/refs/remotes
.git/objects/pack
.git/objects/6a
.git/objects/82
.git/objects/a3
.git/objects/34
.git/objects/info
foo/bar/ber
design-docs/meow/bar
.git/logs/refs/heads
.git/logs/refs/remotes
.git/refs/remotes/origin
foo/bar/ber/foo
design-docs/meow/bar/ber
.git/logs/refs/remotes/origin
foo/bar/ber/foo/f
design-docs/meow/bar/ber/foo
foo/bar/ber/foo/f/f
design-docs/meow/bar/ber/foo/fdfd
foo/bar/ber/foo/f/f/f
design-docs/meow/bar/ber/foo/fdfd/fd
foo/bar/ber/foo/f/f/f/f
design-docs/meow/bar/ber/foo/fdfd/fd/df
foo/bar/ber/foo/f/f/f/f/f
design-docs/meow/bar/ber/foo/fdfd/fd/df/dfd
foo/bar/ber/foo/f/f/f/f/f/f
design-docs/meow/bar/ber/foo/fdfd/fd/df/dfd/fd
foo/bar/ber/foo/f/f/f/f/f/f/f
design-docs/meow/bar/ber/foo/fdfd/fd/df/dfd/fd/fd
foo/bar/ber/foo/f/f/f/f/f/f/f/f
design-docs/meow/bar/ber/foo/fdfd/fd/df/dfd/fd/fd/fdfd
foo/bar/ber/foo/f/f/f/f/f/f/f/f/f
design-docs/meow/bar/ber/foo/fdfd/fd/df/dfd/fd/fd/fdfd/f
design-docs/meow/bar/ber/foo/fdfd/fd/df/dfd/fd/fd/fdfd/fff
foo/bar/ber/foo/f/f/f/f/f/f/f/f/f/f
design-docs/meow/bar/ber/foo/fdfd/fd/df/dfd/fd/fd/fdfd/fff/f
foo/bar/ber/foo/f/f/f/f/f/f/f/f/f/f/f
design-docs/meow/bar/ber/foo/fdfd/fd/df/dfd/fd/fd/fdfd/fff/f/f
foo/bar/ber/foo/f/f/f/f/f/f/f/f/f/f/f/f
design-docs/meow/bar/ber/foo/fdfd/fd/df/dfd/fd/fd/fdfd/fff/f/f/f
foo/bar/ber/foo/f/f/f/f/f/f/f/f/f/f/f/f/f
design-docs/meow/bar/ber/foo/fdfd/fd/df/dfd/fd/fd/fdfd/fff/f/f/f/f
foo/bar/ber/foo/f/f/f/f/f/f/f/f/f/f/f/f/f/f
foo/bar/ber/foo/f/f/f/f/f/f/f/f/f/f/f/f/f/f/f
no such file or directory
  in block <unit> at bin/bailer.p6 line 23

zoffix@zoffix-VirtualBox:~/CPANPRC/party$ 

script.p6

use File::Find;

sub watch-recursive(Str $path, Bool :$update) is export {
    supply {
        my sub watch-it($p) {
            $p.say;
            #sleep 0.1;
            whenever IO::Notification.watch-path($p) -> $e {
                if $update && $e.event ~~ FileRenamed && $e.path.IO ~~ :d {
                    watch-it($_) for find-dirs $e.path;
                }
                emit($e);
            }
        }
        watch-it(~$_) for find-dirs $path;
    }
}

my sub find-dirs (Str:D $p) {
    return slip $p.IO, slip find :dir($p), :type<dir>;
}

react {
    whenever watch-recursive '.', :update {
        .say;
        CATCH { default { warn .backtrace } }
    }
}

tree

zoffix@zoffix-VirtualBox:~/CPANPRC/party$ tree -a
.
├── bin
│   ├── app.p6
│   └── bailer.p6
├── design-docs
│   ├── bar
│   │   └── foo
│   ├── foo
│   ├── layout.md
│   └── meow
│       └── bar
│           └── ber
│               ├── foo
│               │   └── fdfd
│               │       ├── fd
│               │       │   └── df
│               │       │       └── dfd
│               │       │           └── fd
│               │       │               └── fd
│               │       │                   └── fdfd
│               │       │                       ├── f
│               │       │                       └── fff
│               │       │                           └── f
│               │       │                               └── f
│               │       │                                   └── f
│               │       │                                       └── f
│               │       └── meow
│               └── meow
├── foo
│   └── bar
│       └── ber
│           └── foo
│               └── f
│                   └── f
│                       └── f
│                           └── f
│                               └── f
│                                   └── f
│                                       └── f
│                                           └── f
│                                               └── f
│                                                   └── f
│                                                       └── f
│                                                           └── f
│                                                               └── f
│                                                                   └── f
│                                                                       └── f
├── .git
│   ├── branches
│   ├── config
│   ├── description
│   ├── HEAD
│   ├── hooks
│   │   ├── applypatch-msg.sample
│   │   ├── commit-msg.sample
│   │   ├── post-update.sample
│   │   ├── pre-applypatch.sample
│   │   ├── pre-commit.sample
│   │   ├── prepare-commit-msg.sample
│   │   ├── pre-push.sample
│   │   ├── pre-rebase.sample
│   │   └── update.sample
│   ├── index
│   ├── info
│   │   └── exclude
│   ├── logs
│   │   ├── HEAD
│   │   └── refs
│   │       ├── heads
│   │       │   └── master
│   │       └── remotes
│   │           └── origin
│   │               └── HEAD
│   ├── objects
│   │   ├── 34
│   │   │   └── 3387ec74e857688f8ed501a773a90578b20ab3
│   │   ├── 6a
│   │   │   └── 3a57fb25954153a4f4a0856a3b0af43b61d91c
│   │   ├── 82
│   │   │   └── 1c1277dd0a1a03a22de6a792451d63b3f84c1c
│   │   ├── a3
│   │   │   └── 2fca1446ce834d6088d67913f83edd7f5b9485
│   │   ├── info
│   │   └── pack
│   ├── packed-refs
│   └── refs
│       ├── heads
│       │   └── master
│       ├── remotes
│       │   └── origin
│       │       └── HEAD
│       └── tags
├── lib
├── LICENSE
├── README.md
└── t

62 directories, 33 files
zoffix@zoffix-VirtualBox:~/CPANPRC/party$