Make guess_license_from_meta support CPAN::Meta::Spec 2.0

[tobyink]

This takes into account the fact that the license field in 2.0 is an array, by simply allowing a "[" character before the license. Sloppy, but that seems the best way short of adding full YAML/JSON parsing to the module. (A test case is provided for this.)

It adds support for the new license strings defined in 2.0, such as "perl_5".

And it adds a new method guess_license_from_meta_code (you might want to change the name?) which bypasses the YAML/JSON parsing stuff.

[kevindawson]

or better still just

do diff to LicenceUtil to issue16 as all we need is the json [

-  my ($license_text) = $meta_text =~ m{\b["']?license["']?\s*:\s*["']?([a-z_]+)["']?}gm;
-
-  return unless $license_text and my $license = $meta_keys{ $license_text };
+  my ($license_text) = $meta_text =~ m{\b["']?license["']?\s*:\s*\[?\s*["']?([a-z_]+)["']?}gm
+    or return;

applying above and issue16 is a cool solution

[magnolia-k]

I think that guess_license_from_meta_code became unnecessary since guess_license_from_meta_key was already added.

Instead, I think that the method corresponding to it is required for it since CPAN Meta spec 2 can specify two or more licenses.

I wrote method guess_license_from_meta_json.

https://github.com/magnolia-k/Software-License/tree/add_method_guess_license_from_meta_json

guess_license_from_meta_json will return a guess to each specified licenses in a hash reference format.

Please comment for this method.

[kevindawson]

magnolia-k can you do a PR (pull-request) please

that is the normal way to view your code enhancement

thanks

[dolmen]

This PR seems obsoleted by #28.

[karenetheridge]

As noted in #39, the correct thing to do here is to use the already-provided APIs in CPAN::Meta to parse meta files, rather than doing it ourselves.

[rjbs]

Closed in favor of #28