Config::Model::models::Dpkg::Copyright::LicenseSpec (3)

Leading comments

Automatically generated by Pod::Man 4.09 (Pod::Simple 3.35)

Standard preamble:
========================================================================

(The comments found at the beginning of the groff file "man3/Config::Model::models::Dpkg::Copyright::LicenseSpec.3pm".)

NAME

Config::Model::models::Dpkg::Copyright::LicenseSpec - Configuration class Dpkg::Copyright::LicenseSpec

DESCRIPTION

Configuration classes used by Config::Model

Stand-alone license paragraph. This paragraph is used to describe licenses which are used somewhere else in the Files paragraph.

Elements

text

Full license text. Optional. Type string.

Note: text is computed with

 require Software::LicenseUtils ;
 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::LicenseUtils->new_from_short_name($h)->debian_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:

*

SEE ALSO

*

cme

AUTHOR

Dominique Dumont

COPYRIGHT

2010

2011 Dominique Dumont

LICENSE

LGPL2