[libsoftware-license-perl] 07/09: added patch headers and pod doc

[dod at debian.org]

This is an automated email from the git hooks/post-receive script.

dod pushed a commit to branch master
in repository libsoftware-license-perl.

commit 29592a5ffdf4b0e8950b43140da08183ee8fec42
Author: Dominique Dumont <dod at debian.org>
Date:   Sat Sep 20 11:52:26 2014 +0200

    added patch headers and pod doc
---
 debian/patches/add-debian-text-method | 16 ++++++++++++++++
 debian/patches/add-expat-short-name   |  5 +++++
 debian/patches/short-name-fallback    | 19 ++++++++++++++-----
 3 files changed, 35 insertions(+), 5 deletions(-)

diff --git a/debian/patches/add-debian-text-method b/debian/patches/add-debian-text-method
index 1469994..e6c9900 100644
--- a/debian/patches/add-debian-text-method
+++ b/debian/patches/add-debian-text-method
@@ -1,3 +1,7 @@
+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
 +++ b/lib/Software/License.pm
 @@ -82,6 +82,18 @@
@@ -19,6 +23,18 @@
  #pod =method license
  #pod
  #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
 +++ b/t/debian-text.t
 @@ -0,0 +1,29 @@
diff --git a/debian/patches/add-expat-short-name b/debian/patches/add-expat-short-name
index 947eee5..07c714d 100644
--- a/debian/patches/add-expat-short-name
+++ b/debian/patches/add-expat-short-name
@@ -1,3 +1,8 @@
+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
 +++ b/lib/Software/LicenseUtils.pm
 @@ -173,6 +173,7 @@
diff --git a/debian/patches/short-name-fallback b/debian/patches/short-name-fallback
index 600ae20..d1e29f4 100644
--- a/debian/patches/short-name-fallback
+++ b/debian/patches/short-name-fallback
@@ -1,3 +1,6 @@
+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
 +++ b/lib/Software/LicenseUtils.pm
 @@ -212,14 +212,13 @@
@@ -18,12 +21,18 @@
    return $lic_class->new( { %$arg, @infos } );
  }
  
-@@ -289,4 +288,4 @@
- This is free software; you can redistribute it and/or modify it under
- the same terms as the Perl 5 programming language system itself.
+@@ -276,7 +275,10 @@
+ 
+ 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
 +++ b/t/short_name.t
 @@ -2,7 +2,7 @@

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libsoftware-license-perl.git