Help for this page
sub f { my $x if 0; return $x++ }
{ my $x; sub f { return $x++ } }
sub f { state $x; return $x++ }