$ perl6-m -e 'sub a($a = CALLER::CALLER::<$_>) { say $a }; $_ = "foo"; a'
foo
$ perl6-m -e 'sub foo($a = CALLER::CALLER::<$_>) { say $a }; given 42 { foo(1);
foo() }'
1
42
The ticket number is mentioned in S06-signature/caller-param.t. The following
comment was added with commit 66a1ea8cb1:
# These tests all work when using CALLER::CALLER but we should
# not need to do that. Minus that fact, 123660 has actually been
# fixed since it was reported.
