---
name: "Config::Model::models::Dpkg::Copyright::LicenseSpec"
section: "3pm"
platform: "linux"
package: "libconfig-model-dpkg-perl"
version: "3.014"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/Config::Model::models::Dpkg::Copyright::LicenseSpec"
---

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

Configuration class Dpkg::Copyright::LicenseSpec

## 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::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:

- •

  ## SEE ALSO

- •

  cme

## AUTHOR

- Dominique Dumont

  ## COPYRIGHT

- 2010

  - 2011 Dominique Dumont

  ## LICENSE

- LGPL2