Commit 29592a5f authored by Dominique Dumont's avatar Dominique Dumont

added patch headers and pod doc

parent 8fd0cf77
Description: Add debian_text method
This method returns the license summary (if available)
or the full license text.
Author: dod
--- a/lib/Software/License.pm --- a/lib/Software/License.pm
+++ b/lib/Software/License.pm +++ b/lib/Software/License.pm
@@ -82,6 +82,18 @@ @@ -82,6 +82,18 @@
...@@ -19,6 +23,18 @@ ...@@ -19,6 +23,18 @@
#pod =method license #pod =method license
#pod #pod
#pod This method returns the full text of the license. #pod This method returns the full text of the license.
@@ -276,6 +288,11 @@
containing the whole license will be in C</usr/share/common-licenses/>
directory. (Available only on Debian)
+=head2 debian_text
+
+This method returns a summary of the license (if available) or the full text
+of the license (Available only on Debian)
+
=head2 license
This method returns the full text of the license.
--- /dev/null --- /dev/null
+++ b/t/debian-text.t +++ b/t/debian-text.t
@@ -0,0 +1,29 @@ @@ -0,0 +1,29 @@
......
Description: Add expat short name
Expat is accepted and returns a MIT license object.
This is Debian specific.
Author: dod
Applied-Upstream: NA
--- a/lib/Software/LicenseUtils.pm --- a/lib/Software/LicenseUtils.pm
+++ b/lib/Software/LicenseUtils.pm +++ b/lib/Software/LicenseUtils.pm
@@ -173,6 +173,7 @@ @@ -173,6 +173,7 @@
......
Description: Short name fallback
Patch short_name to fallback on a Software::License class if short name is unknown
Author: dod
--- a/lib/Software/LicenseUtils.pm --- a/lib/Software/LicenseUtils.pm
+++ b/lib/Software/LicenseUtils.pm +++ b/lib/Software/LicenseUtils.pm
@@ -212,14 +212,13 @@ @@ -212,14 +212,13 @@
...@@ -18,12 +21,18 @@ ...@@ -18,12 +21,18 @@
return $lic_class->new( { %$arg, @infos } ); return $lic_class->new( { %$arg, @infos } );
} }
@@ -289,4 +288,4 @@ @@ -276,7 +275,10 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself. Create a new L<Software::License> object from the license specified
with C<short_name>. Known short license names are C<GPL-*>, C<LGPL-*> ,
-C<Artistic> and C<Artistic-*>
+C<Artistic> and C<Artistic-*>. If the short name is not know, this
+method will try to create a license object with C<Software::License::> and
+the specified short name (e.g. C<Software::License::MIT> with
+C<< short_name => 'MIT' >>.
=head1 AUTHOR
-=cut
+=CUT
--- a/t/short_name.t --- a/t/short_name.t
+++ b/t/short_name.t +++ b/t/short_name.t
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment