text¶

Note: text is computed with

 require Software::LicenseMoreUtils ;
 my $lic = &index( - ) ;
 my $h = { short_name => $lic, holder => 'foo' } ;
 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);
        # work-around a bug in lgpl license text summary... my bad :-/
        $text =~ s!^\.!!mg;
    }
 # 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:

•