14 lines
133 B
Raku
14 lines
133 B
Raku
|
sub a {
|
||
|
|
my $*dyn = 'a';
|
||
|
|
c();
|
||
|
|
}
|
||
|
|
sub b {
|
||
|
|
my $*dyn = 'b';
|
||
|
|
c();
|
||
|
|
}
|
||
|
|
sub c {
|
||
|
|
say $*dyn;
|
||
|
|
}
|
||
|
|
a(); # says a
|
||
|
|
b(); # says b
|