Re: Dynamically Changing Packages w/out Eval

[JavaFan]

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;
}

[betterworld]

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;
}

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