An eval is possible, but some people rather avoid eval. You can avoid eval by making use of a symbolic reference:
my $style = 'wxTE_MULTILINE';
{
no strict 'refs';
say &$style; # or: say $style->()
}
| [reply]
[d/l] |
You can even do it in a strict safe manner :)
use constant test => 5;
if(my $sub = __PACKAGE__->can('test')) {
print $sub->(),"\n";
}
- Ant
- Some of my
best work - (1 2 3)
| [reply]
[d/l] |
That wouldn't work if the sub is AUTOLOADED, and the package doesn't redefine 'can' to reflect this. (I've seen many packages using AUTOLOAD that don't redefined 'can').
Having said that, and given the fact the subname comes from some XML document whose creation may not be under our control, I would neither use eval, nor a symref, and not can either. I'd make a dispatch table allowing only values I approve of.
my $style = ... retrieve from XML document ...
my $value;
given ($style) {
when ("sub1") {$value = sub1}
when ("sub2") {$value = sub2}
...
default {die "Illegal style '$style'"}
}
Wx::TextCtrl->new( $self, -1, "", [5, 10], [-1, -1], $value);
| [reply]
[d/l] |
That did the trick...Thanks! | [reply] |
