view release on metacpan or  search on metacpan

lib/App/cpan2arch/WritePkgbuild.pm  view on Meta::CPAN

                push @licenses, {
                    name => q{'unknown'},
                    desc => $desc,
                    note => $NOTE,
                };

                next;
            }

            # Guess license
            my @guesses;
            {
                require Software::LicenseUtils;
                Software::LicenseUtils->VERSION('0.104007');

                @guesses = Software::LicenseUtils->guess_license_from_meta_key($license);
                $self->_pdump( '@guesses', \@guesses, "\n" );
            }

            my $spdx = $guesses[0]->spdx_expression;
            $self->_pdump( '$spdx', \$spdx, "\n" );

            if ( !defined $spdx ) {
                $_install_license = true;

                push @licenses, {
                    name => q{'unknown'},
                    note => $NOTE,
                };