any-chain.raku

use MONKEY-TYPING;

augment class Any {
    method chain {
        class Chainer {
            has $.the-object;
            method FALLBACK($name, *@a) {
                my $o = $.the-object;
                if @a {
                    for @a -> $e {
                        $o = $o."$name"($e, |%_);
                    }
                } elsif %_ {
                    for %_ -> %p {
                        $o = $o."$name"(|%p);
                    }
                } else {
# XXX error handling
                }

                $o
            }
        }

        Chainer.new(the-object => self)
    }
}

IO::Path.HOW.compose(IO::Path);
DateTime.HOW.compose(DateTime);

'/home/dex'.IO.chain.add(<tmp foo.txt>).say;
'/home/dex'.IO.chain.add('tmp').add('foo.txt').say;

my $d = now.DateTime;
say $d;
say $d.later(:1hour).later(:30minutes);
say $d.chain.later(:1hour, :30minutes);