t/unspecced/tailcall.t

   1 use v6;
   2
   3
   4 say "1..3";
   5
   6 sub foo () {
   7     say "ok 2";
   8     &baz.nextwith("param1", "param2");
   9 }
  10
  11 sub bar ($param1, $param2) {
  12     if $param1 eq "param1" and $param2 eq "param2" {
  13         say "ok 1";
  14     } else {
  15         say "not ok 1";
  16     }
  17 }
  18
  19 sub baz ($param1, $param2) {
  20     if $param1 eq "param1" and $param2 eq "param2" {
  21         say "ok 3";
  22     } else {
  23         say "not ok 3";
  24     }
  25 }
  26
  27 bar("param1", "param2");
  28 foo();