$ perl6 -e 'sub f { 3 }; sub g($a) { $a }; if my $x = f() and g($x) { say "works" }'
works