1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
Description: new method
--- a/lib/Software/License.pm
+++ b/lib/Software/License.pm
@@ -73,6 +73,12 @@
sub notice { shift->_fill_in('NOTICE') }
+sub summary {
+ my ($self,$distro) = @_;
+ $distro ||= 'debian' ;
+ $self->_fill_in(uc($distro).'-SUMMARY');
+}
+
#pod =method license
#pod
#pod This method returns the full text of the license.
@@ -261,6 +267,13 @@
copyright holder and year of copyright, as well as an indication of the license
under which the software is distributed.
+=head2 summary
+
+This method returns a summary of the license. This summary must
+refer to a file containing the whole license. On Debian system, the file
+containing the whole license will be in C</usr/share/common-licenses/>
+directory. (Available only on Debian)
+
=head2 license
This method returns the full text of the license.
|
