Select Code to Download

my $class = "Erlang::Parser::Node::$type";
$class->new(@args)

"Erlang::Parser::Node::$type"->new(@args)

sub new_node {
   my $kind = shift;
   return "Erlang::Parser::Node::$kind"->new(@_);
}