Re^3: Don't know how to make a module for this repeating code

[Anonymous Monk]

in reply to Re^2: Don't know how to make a module for this repeating code
in thread Don't know how to make a module for this repeating code

can I eval() some text which return from a package that carrying the script body etc..

What does that mean?

[exilepanda]

umm... perhaps I can create something like this:

package ExtConstructor;

sub new {
    return <<"    CODE";    
    eval 'use parent "parent::classes"';    
    sub new {
        return bless $_[0]->SUPER::new();    
    }    
    CODE
}
1;

package Interface::Module;
use ExtConstructor;

my $code = new ExtConstructor;
eval $code; # so that the constructor code created on-the-fly
1;

package main;
use Interface::Module;

my $obj = new Interface::Module;