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

exilepanda has asked for the wisdom of the Perl Monks concerning the following question:

Hi monks, I have a module that acting as an interface which looks quite similar to this :

package Some::Interface;
use strict;

my $formType = "HR-Recruitment"; # hard coded
my $lastVerion = "hr_re_v12"; # hard coded

eval "use parent 'somepack::$formType::$lastVersion';";

sub new {
    my $c = shift;    
    
    # some statements to check if any error in @_    
    # some statements to check access right
    
    my $wrap = $c->SUPER::new( @_ );    
    
    # some statements to add more attributes for $wrap
    
    return bless $wrap;
}

1;
[download]

I've repeating (copy and paste) this code(file) in every module that has similar purpose. But since this is repeating code, so I am wondering is there anyway I can snap out this code into some central place... The only different things among these interface modules is only the had coded part. But then...I have no idea how to offshore a constructor... can anyone tell me an idea for how to get a start ?

*UPDATE: my ultimate wish is I can make it as few lines as possible when I am creating another interface module.

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

Replies are listed 'Best First'.
Re: Don't know how to make a module for this repeating code by zwon (Abbot) on Nov 24, 2012 at 16:24 UTC
`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.	[reply] [d/l] [select]
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

Back to Seekers of Perl Wisdom