Re: Help creating a function

I think you are looking for a factory pattern. Here is a suggestion:

package People;
sub new {
  my ($classname, $type, $data_ref) = @_ ;
  my $class = $classname . '::' . $type ;
  use $class;
  return $class->new( $data_ref ) ;
} # new
#######################
package People::Employee;
sub new{ ... }
sub name{...}
...
######################
In a script far, far away:

use People;
my $employee = People->new( 'Employee', {name => 'Someone',...});
print $employee->name;
[download]

Comment on Re: Help creating a function Download Code

Replies are listed 'Best First'.
Re^2: Help creating a function by varghees (Novice) on Feb 17, 2011 at 05:35 UTC
Yes. I am looking for factory pattern. But this code `my $class = $classname . '::' . $type ; use $class;` [download] is not working in perl. Throws syntax error.	[reply] [d/l]
Re^3: Help creating a function by Anonymous Monk on Feb 17, 2011 at 05:45 UTC
See Module::Load	[reply]
Re^4: Help creating a function by varghees (Novice) on Feb 17, 2011 at 07:14 UTC
I tried Module::Load also. but no luck `use Data::Dumper; print Dumper {A=>'testA',B=>'testB'};` [download] using 'use' statement as above code, I get the output as `$VAR1 = { 'A' => 'testA', 'B' => 'testB' };` [download] but when i try loading the module using Module::Load as below, prints nothing. `use Module::Load; load 'Data::Dumper'; print Dumper {A=>'testA',B=>'testB'};` [download]	[reply] [d/l] [select]
Re^5: Help creating a function by Anonymous Monk on Feb 17, 2011 at 07:25 UTC
Re^3: Help creating a function by tospo (Hermit) on Feb 17, 2011 at 09:37 UTC
oops sorry, yes that was wrong. Actually what I normally do is this: `$class=~s/:{2}/\//g; $class.= '.pm'; require $class_path;` [download] But there is probably a better way of doing it.	[reply] [d/l]