Re: Dynamically Changing Packages w/out Eval


Don't ask to ask, just ask
	PerlMonks

Re: Dynamically Changing Packages w/out Eval

by JavaFan (Canon)

on Aug 24, 2009 at 20:51 UTC ( [id://790915]=note: print w/replies, xml )

Need Help??

in reply to Dynamically Changing Packages w/out Eval

This doesn't avoid eval, but it shouldn't break syntax highlighting, nor postpone compile issues to runtime:

sub run_in_package (&$) {
    my($code, $package) = @_;
    eval "package $package; &$code; 1" or die $@;
}

foreach my $block ($self->get_blocks) {
    run_in_package {
        $block->setup->();
        $block->code->();
        $block->teardown->();
    } $block->package;
}
[download]

Comment on Re: Dynamically Changing Packages w/out Eval Download Code

Replies are listed 'Best First'.

Re^2: Dynamically Changing Packages w/out Eval
by betterworld (Curate) on Aug 25, 2009 at 12:11 UTC

eval "package $package; &$code; 1" or die $@;

I think you're missing a "\" before "$code". But then the code will be called via a code reference, and the contents of the code reference are still in the old package (where they were compiled):

sub run_in_package (&$) {
    my($code, $package) = @_;
    eval "package $package; &\$code; 1" or die $@;
}

run_in_package {
    showcaller();
} 'foooo';


sub showcaller {
    warn scalar caller;
}
[download]

The text of the warning will be "main" (not "foooo").

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom