# Pastebin FKDBNn4L
method auto-subscribe($method, &block) {
	with $*UI-APP.?obj.store {
		my $app = $*UI-APP;
		my $parent = $*UI-PARENT;
		for %*UI-PATHS.keys -> $path {
			my @path = $path ~~ Positional ?? $path !! [$path];
			my $base = "{ $.obj.WHERE }-{ self.^name }-{ $method }-{ @path.join: "-" }";
			note "base => $base; @path[]";
			.subscribe-path-callback(
				"{ $base }-{ ++%count{$base} }",
				[ @path ],
				with-ui-context($app, $parent, &block),
				$.obj ~~ Selkie::Widget ?? $.obj !! Selkie::Widget
			)
		}
	}
	block self
}