#!/usr/bin/perl

use warnings;
use strict;

package Class;

sub new { bless {}, $_[0] };

1;

package Class::SubclassA;

sub new { bless {}, $_[0]; };

1;


package Class::SubclassB;

sub new { return bless {}, $_[0]; };

1;

package ClassFactory;

my %creation_hash = (
  SubclassA => sub { Class::SubclassA->new() },
  SubclassB => sub { Class::SubclassB->new() }
);

sub create {
  shift;
  print $creation_hash{$_[0]}, "\n";
  return $creation_hash{$_[0]}->();
}

1;
package main;

my $a = ClassFactory->create( "SubclassA" );
my $b = ClassFactory->create( "SubclassB" );

print $a, "\n";
print $b, "\n";