On Apr 22, 2011, at 6:57 PM, Flavio Poletti via RT wrote:
Show quoted text> The current implementation of guess_license_from_meta is a little broken, but you should be
> able to use it like this:
>
> sub classes_for_meta_name {
> my $meta_name = shift;
> return Software::LicenseUtils->guess_license_from_meta("license:$meta_name");
> }
Here's what I ended up doing:
sub _license($) {
my $class = $class_for{+shift} or return;
$class = "Software::License::$class";
eval "require $class; 1" or die;
return $class;
}
Best,
David