See update at EOM.

Hi monks,

I just lately started to OOPify the module I've been working on when I decided I'd go the full hog and Mooseify it.

Before, I was using something like this as a shorthand in the parser to make a node of some type:

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

I'm not sure if this is ideal (if not, please do tell!), but it's even less ideal now as I'm getting this with Moose:

If I call new as an actual OO call on the module, it works fine:

I'm guessing this is because I don't actually define a new in my own classes (and leave that to Moose), so Erlang::Parser::Node::Whatever::new really doesn't exist!

There is probably some Moose magic I'm missing that I could use to get around this, but I'm still looking! Any wisdom would be very appreciated.

Anneli

Update: ooo... kay. Apparently I missed the most obvious solution of all:

sub new_node {
    my ($kind, %args) = @_;
    "Erlang::Parser::Node::$kind"->new(%args);
}
[download]

I have much to learn.