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

my $formType = "HR-Recruitment"; # hard coded my $lastVerion = "hr_re_v12"; # hard coded eval "use parent 'somepack::$formType::$lastVersion';";
[download]

If values are hardcoded, then why not just:

use parent 'somepack::HR-Recruitment::hr_re_v12';
[download]

Answering your question, I would probably wrote a function to generate a package from the name and data unique to this package, and then just generate all the packages. Details depend on your particular case. Have a look onto Class::MOP::Class, and Moose::Meta::Class, though you can do it without Moose too.

Comment on Re: Don't know how to make a module for this repeating code Select or Download Code

Replies are listed 'Best First'.
Re^2: Don't know how to make a module for this repeating code by exilepanda (Friar) on Nov 24, 2012 at 17:06 UTC
Thanks for answering, and helped me to think deeper for what is my question... So, I think my problem is not worrying how to create this package. Perhaps I can make a module to auto update the interface version triggered by the implementation classes as well. But then, seems what really interested me is how to eliminate this kind of "code", when this code is a constructor. like.. can I eval() some text which return from a package that carrying the script body etc..	[reply]
Re^3: Don't know how to make a module for this repeating code by Anonymous Monk on Nov 25, 2012 at 10:21 UTC
can I eval() some text which return from a package that carrying the script body etc.. What does that mean?	[reply]
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]