Re^3: 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?

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

Replies are listed 'Best First'.
Re^4: Don't know how to make a module for this repeating code by exilepanda (Friar) on Nov 27, 2012 at 05:24 UTC
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;` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Don't know how to make a module for this repeating code
by exilepanda (Friar) on Nov 27, 2012 at 05:24 UTC

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;
[download]

[reply]
[d/l]