package Factory;
sub create {
my $class = shift;
my $obj = 'Base::' . shift;
return $obj->new();
}
package Base;
sub new {
my $class = shift;
my $self = { thing => 'foo' };
return bless $self,$class;
}
package Base::Bold;
use base 'Base';
sub output {
my $self = shift;
return '' . $self->{thing} . '';
}
package Base::Italic;
use base 'Base';
sub output {
my $self = shift;
return '' . $self->{thing} . '';
}
package main;
my @things = (
Factory->create('Bold'),
Factory->create('Italic'),
);
print $_->output,$/ for @things;