}
foreach my $comp (@comp) {
my $comp_class = "${class}::${comp}";
- eval "use $comp_class";
- die $@ if $@;
+ eval "use $comp_class"; # If it fails, assume the user fixed it
$class->register_class($comp => $comp_class);
}
}
my ($class, $to_map) = @_;
return $map{$to_map};
};
+ *{"${target}::classes"} = sub { return \%map; };
}
$conn_class->class_resolver($target);
}