Help for this page

Select Code to Download

Select or download this

class MyFormat is CORE::GrammarVisitor
{
...
}

$0.traverse(MyFormat.new(fh=>$*STDOUT)); # default ctor?

Select or download this

  my $sub = sub {print $value};
  $sub.MY{'$value'} = 42;
  $sub();