package Car;

has %car_by_type;

sub new {
   my ($self, %opts) = @_;
   if ($opts{name} && $car_by_type{$opts{name}}) {
      $car_by_type{$opts{name}}->new(%opts);
   }
   else {
      die "Don't know how to make a new car";
   }
}

method REGISTER_TYPE {
    my ($self, $name, $type) = @_;
    $car_by_type{$name} = $type;

}

package Car::BMW;
our @ISA = qw/Car/;
Car::BMW->REGISTER_TYPE('Z1', __PACKAGE__);
Car::BMW->REGISTER_TYPE('Z3', __PACKAGE__);

package main;
my $z1 = Car->new(name => 'Z1');