Re: Help creating a function

[tospo]

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;

[varghees]

Yes. I am looking for factory pattern. But this code

  my $class = $classname . '::' . $type ;
  use $class;

is not working in perl. Throws syntax error.

[Anonymous Monk]

See Module::Load

[varghees]

I tried Module::Load also. but no luck

use Data::Dumper;
print Dumper {A=>'testA',B=>'testB'};

using 'use' statement as above code, I get the output as

$VAR1 = {
          'A' => 'testA',
          'B' => 'testB'
        };

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'};

[tospo]

oops sorry, yes that was wrong. Actually what I normally do is this:

$class=~s/:{2}/\//g;
$class.= '.pm';
require $class_path;

But there is probably a better way of doing it.