sub new_node { my ($kind, @args) = @_; do { no strict 'refs'; my $class = "Erlang::Parser::Node::$kind"; &{"${class}::new"}($class, @args) } } #### sub new_node { my ($kind, %args) = @_; "Erlang::Parser::Node::$kind"->new(%args); }