Config::Model::models::Dpkg::Copyright::LicenseSpec3pm

text

Full license text. Optional. Type string.

Note: text is computed with

 require Software::LicenseMoreUtils ;
 my $lic = &index( - ) ;
 my $h = { short_name => $lic } ;
 my $text;
 
 if (defined $lic and $lic) {
    # no need to fail if short_name is unknown
    eval {
        $text = Software::LicenseMoreUtils->new_from_short_name($h)->summary_or_text ;
    } ;
    if ($text) {
        # need to cleanup text to mimic cleanup done when copyright
        # data is read from file
        chomp($text);
        # cleanup tabs, not allowed by copyright spec
        $text =~ s!\t!    !g;
        # cleanup empty lines (which are also cleaned up when writing file,
        # but this messes tests up)
        $text =~ s!\n +\n!\n\n!g;
    }
 # FIXME: find a way to warn user if a license is unknown only when
 # text is not set by another mean... may loop bad if not careful
 #   if ($@ and ! $self->value_object->{data}) {
 #       print "Cannot find license text for $lic\n" ;
 #   }
 }
 
 $text;

and with:

•