package GreetFactory;
use strict; use warnings;
use lib './Greet';

sub instantiate {
	my $class          = shift;
	my $requested_type = shift;
	my $location       = "Greet/$requested_type.pm";
	$class          = "Greet::$requested_type";
	require $location;
	return $class->new(@_);
}
1;