commit perl-Software-License for openSUSE:Factory

Hello community, here is the log from the commit of package perl-Software-License for openSUSE:Factory checked in at 2014-05-31 08:09:25 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Software-License (Old) and /work/SRC/openSUSE:Factory/.perl-Software-License.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Software-License" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Software-License/perl-Software-License.changes 2014-03-11 08:03:08.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Software-License.new/perl-Software-License.changes 2014-05-31 08:09:26.000000000 +0200 @@ -1,0 +2,7 @@ +Tue May 27 07:41:41 UTC 2014 - ncutler@suse.com + +- updated to 0.103010 + - fix guess_license_from_pod's return on GPL licenses + (thanks, Syohei YOSHIDA!) + +------------------------------------------------------------------- Old: ---- Software-License-0.103009.tar.gz New: ---- Software-License-0.103010.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Software-License.spec ++++++ --- /var/tmp/diff_new_pack.dgAZ84/_old 2014-05-31 08:09:27.000000000 +0200 +++ /var/tmp/diff_new_pack.dgAZ84/_new 2014-05-31 08:09:27.000000000 +0200 @@ -17,10 +17,10 @@ Name: perl-Software-License -Version: 0.103009 +Version: 0.103010 Release: 0 %define cpan_name Software-License -Summary: packages that provide templated software licenses +Summary: Packages that provide templated software licenses License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Software-License/ @@ -44,7 +44,8 @@ %{perl_requires} %description -packages that provide templated software licenses +This package provides templated software licenses in the form of modules, +as well as some license-related utilities, such as a 'fulltext' method. %prep %setup -q -n %{cpan_name}-%{version} ++++++ Software-License-0.103009.tar.gz -> Software-License-0.103010.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/Changes new/Software-License-0.103010/Changes --- old/Software-License-0.103009/Changes 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/Changes 2014-03-30 04:13:26.000000000 +0200 @@ -1,5 +1,9 @@ Revision history for Software-License +0.103010 2014-03-29 22:13:19-04:00 America/New_York + - fix guess_license_from_pod's return on GPL licenses + (thanks, Syohei YOSHIDA!) + 0.103009 2014-02-20 22:19:45-05:00 America/New_York - Updated FSF mailing address in license text for GFDL versions 1.2, GPL versions 1 & 2, and LGPL 2.1 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/LICENSE new/Software-License-0.103010/LICENSE --- old/Software-License-0.103009/LICENSE 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/LICENSE 2014-03-30 04:13:26.000000000 +0200 @@ -22,7 +22,7 @@ Version 1, February 1989 Copyright (C) 1989 Free Software Foundation, Inc. - 51 Franklin St, Suite 500, Boston, MA 02110-1335 USA + 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/META.json new/Software-License-0.103010/META.json --- old/Software-License-0.103009/META.json 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/META.json 2014-03-30 04:13:26.000000000 +0200 @@ -4,7 +4,7 @@ "Ricardo Signes " ], "dynamic_config" : 0, - "generated_by" : "Dist::Zilla version 5.014, CPAN::Meta::Converter version 2.133380", + "generated_by" : "Dist::Zilla version 5.014, CPAN::Meta::Converter version 2.140640", "license" : [ "perl_5" ], @@ -59,10 +59,10 @@ "web" : "https://github.com/rjbs/Software-License" } }, - "version" : "0.103009", + "version" : "0.103010", "x_Dist_Zilla" : { "perl" : { - "version" : "5.019009" + "version" : "5.019010" }, "plugins" : [ { @@ -73,12 +73,12 @@ { "class" : "Dist::Zilla::Plugin::CheckPrereqsIndexed", "name" : "@RJBS/CheckPrereqsIndexed", - "version" : "0.010" + "version" : "0.011" }, { "class" : "Dist::Zilla::Plugin::CheckExtraTests", "name" : "@RJBS/CheckExtraTests", - "version" : "0.018" + "version" : "0.021" }, { "class" : "Dist::Zilla::Plugin::PromptIfStale", @@ -94,7 +94,7 @@ } }, "name" : "@RJBS/RJBS-Outdated", - "version" : "0.017" + "version" : "0.021" }, { "class" : "Dist::Zilla::Plugin::PromptIfStale", @@ -108,7 +108,7 @@ } }, "name" : "@RJBS/CPAN-Outdated", - "version" : "0.017" + "version" : "0.021" }, { "class" : "Dist::Zilla::Plugin::PruneCruft", @@ -146,11 +146,6 @@ "version" : "5.014" }, { - "class" : "Dist::Zilla::Plugin::MakeMaker", - "name" : "@RJBS/@Filter/MakeMaker", - "version" : "5.014" - }, - { "class" : "Dist::Zilla::Plugin::Manifest", "name" : "@RJBS/@Filter/Manifest", "version" : "5.014" @@ -171,6 +166,16 @@ "version" : "5.014" }, { + "class" : "Dist::Zilla::Plugin::MakeMaker", + "config" : { + "Dist::Zilla::Role::TestRunner" : { + "default_jobs" : 9 + } + }, + "name" : "@RJBS/MakeMaker", + "version" : "5.014" + }, + { "class" : "Dist::Zilla::Plugin::AutoPrereqs", "name" : "@RJBS/AutoPrereqs", "version" : "5.014" diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/META.yml new/Software-License-0.103010/META.yml --- old/Software-License-0.103009/META.yml 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/META.yml 2014-03-30 04:13:26.000000000 +0200 @@ -8,7 +8,7 @@ configure_requires: ExtUtils::MakeMaker: '6.30' dynamic_config: 0 -generated_by: 'Dist::Zilla version 5.014, CPAN::Meta::Converter version 2.133380' +generated_by: 'Dist::Zilla version 5.014, CPAN::Meta::Converter version 2.140640' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -30,10 +30,10 @@ bugtracker: https://github.com/rjbs/Software-License/issues homepage: https://github.com/rjbs/Software-License repository: https://github.com/rjbs/Software-License.git -version: '0.103009' +version: '0.103010' x_Dist_Zilla: perl: - version: '5.019009' + version: '5.019010' plugins: - class: Dist::Zilla::Plugin::Git::GatherDir @@ -42,11 +42,11 @@ - class: Dist::Zilla::Plugin::CheckPrereqsIndexed name: '@RJBS/CheckPrereqsIndexed' - version: '0.010' + version: '0.011' - class: Dist::Zilla::Plugin::CheckExtraTests name: '@RJBS/CheckExtraTests' - version: '0.018' + version: '0.021' - class: Dist::Zilla::Plugin::PromptIfStale config: @@ -58,7 +58,7 @@ phase: build skip: [] name: '@RJBS/RJBS-Outdated' - version: '0.017' + version: '0.021' - class: Dist::Zilla::Plugin::PromptIfStale config: @@ -69,7 +69,7 @@ phase: release skip: [] name: '@RJBS/CPAN-Outdated' - version: '0.017' + version: '0.021' - class: Dist::Zilla::Plugin::PruneCruft name: '@RJBS/@Filter/PruneCruft' @@ -99,10 +99,6 @@ name: '@RJBS/@Filter/ShareDir' version: '5.014' - - class: Dist::Zilla::Plugin::MakeMaker - name: '@RJBS/@Filter/MakeMaker' - version: '5.014' - - class: Dist::Zilla::Plugin::Manifest name: '@RJBS/@Filter/Manifest' version: '5.014' @@ -119,6 +115,13 @@ name: '@RJBS/@Filter/UploadToCPAN' version: '5.014' - + class: Dist::Zilla::Plugin::MakeMaker + config: + Dist::Zilla::Role::TestRunner: + default_jobs: 9 + name: '@RJBS/MakeMaker' + version: '5.014' + - class: Dist::Zilla::Plugin::AutoPrereqs name: '@RJBS/AutoPrereqs' version: '5.014' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/Makefile.PL new/Software-License-0.103010/Makefile.PL --- old/Software-License-0.103009/Makefile.PL 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/Makefile.PL 2014-03-30 04:13:26.000000000 +0200 @@ -36,7 +36,7 @@ "Test::More" => "0.96", "Try::Tiny" => 0 }, - "VERSION" => "0.103009", + "VERSION" => "0.103010", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/README new/Software-License-0.103010/README --- old/Software-License-0.103009/README 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/README 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ This archive contains the distribution Software-License, -version 0.103009: +version 0.103010: packages that provide templated software licenses diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/AGPL_3.pm new/Software-License-0.103010/lib/Software/License/AGPL_3.pm --- old/Software-License-0.103009/lib/Software/License/AGPL_3.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/AGPL_3.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::AGPL_3; -$Software::License::AGPL_3::VERSION = '0.103009'; +$Software::License::AGPL_3::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: GNU Affero General Public License, Version 3 @@ -23,7 +23,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/Apache_1_1.pm new/Software-License-0.103010/lib/Software/License/Apache_1_1.pm --- old/Software-License-0.103009/lib/Software/License/Apache_1_1.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/Apache_1_1.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::Apache_1_1; -$Software::License::Apache_1_1::VERSION = '0.103009'; +$Software::License::Apache_1_1::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: The Apache Software License, Version 1.1 @@ -22,7 +22,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/Apache_2_0.pm new/Software-License-0.103010/lib/Software/License/Apache_2_0.pm --- old/Software-License-0.103009/lib/Software/License/Apache_2_0.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/Apache_2_0.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::Apache_2_0; -$Software::License::Apache_2_0::VERSION = '0.103009'; +$Software::License::Apache_2_0::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: The Apache License, Version 2.0 @@ -22,7 +22,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/Artistic_1_0.pm new/Software-License-0.103010/lib/Software/License/Artistic_1_0.pm --- old/Software-License-0.103009/lib/Software/License/Artistic_1_0.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/Artistic_1_0.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,32 +1,32 @@ use strict; use warnings; package Software::License::Artistic_1_0; -$Software::License::Artistic_1_0::VERSION = '0.103009'; +$Software::License::Artistic_1_0::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: The Artistic License -# =head1 OPTIONS -# -# The Artistic License 1.0 has a sometimes-omitted "aggregation clause" which -# reads: -# -# 8. The name of the Copyright Holder may not be used to endorse or promote -# products derived from this software without specific prior written -# permission. -# -# By default, this clause will be included. To disable it, include the following -# pair when instantiating the license: -# -# aggregation_clause => 0 -# -# =head1 METHODS -# -# =head2 aggregation_clause -# -# This method returns whether the aggregation clause is allowed on this instance. -# By default this method returns true on instances and dies on the class. -# -# =cut +#pod =head1 OPTIONS +#pod +#pod The Artistic License 1.0 has a sometimes-omitted "aggregation clause" which +#pod reads: +#pod +#pod 8. The name of the Copyright Holder may not be used to endorse or promote +#pod products derived from this software without specific prior written +#pod permission. +#pod +#pod By default, this clause will be included. To disable it, include the following +#pod pair when instantiating the license: +#pod +#pod aggregation_clause => 0 +#pod +#pod =head1 METHODS +#pod +#pod =head2 aggregation_clause +#pod +#pod This method returns whether the aggregation clause is allowed on this instance. +#pod By default this method returns true on instances and dies on the class. +#pod +#pod =cut sub aggregation_clause { exists $_[0]->{aggregation_clause} ? $_[0]->{aggregation_clause} : 1 @@ -60,7 +60,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 OPTIONS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/Artistic_2_0.pm new/Software-License-0.103010/lib/Software/License/Artistic_2_0.pm --- old/Software-License-0.103009/lib/Software/License/Artistic_2_0.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/Artistic_2_0.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::Artistic_2_0; -$Software::License::Artistic_2_0::VERSION = '0.103009'; +$Software::License::Artistic_2_0::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: The Artistic License 2.0 @@ -22,7 +22,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/BSD.pm new/Software-License-0.103010/lib/Software/License/BSD.pm --- old/Software-License-0.103009/lib/Software/License/BSD.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/BSD.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::BSD; -$Software::License::BSD::VERSION = '0.103009'; +$Software::License::BSD::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: The (three-clause) BSD License @@ -22,7 +22,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/CC0_1_0.pm new/Software-License-0.103010/lib/Software/License/CC0_1_0.pm --- old/Software-License-0.103009/lib/Software/License/CC0_1_0.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/CC0_1_0.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,22 +1,22 @@ use strict; use warnings; package Software::License::CC0_1_0; -$Software::License::CC0_1_0::VERSION = '0.103009'; +$Software::License::CC0_1_0::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: the "public domain"-like CC0 license, version 1.0 -# =head1 WARNING -# -# B<You should really think hard before using this license.> -# -# This license is provided for those who want to place their software into the -# public domain. Doing this means you have waived any copyright protection as -# much as allowed by law, and that you grant anybody the right to do anything -# with your software. You cannot reverse your decision to dedicate software as -# public property, so use this only if you're quite sure that you mean to do -# it. -# -# =cut +#pod =head1 WARNING +#pod +#pod B<You should really think hard before using this license.> +#pod +#pod This license is provided for those who want to place their software into the +#pod public domain. Doing this means you have waived any copyright protection as +#pod much as allowed by law, and that you grant anybody the right to do anything +#pod with your software. You cannot reverse your decision to dedicate software as +#pod public property, so use this only if you're quite sure that you mean to do +#pod it. +#pod +#pod =cut sub name { q(CC0 License) } sub url { q{http://creativecommons.org/publicdomain/zero/1.0/} } @@ -36,7 +36,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 WARNING diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/Custom.pm new/Software-License-0.103010/lib/Software/License/Custom.pm --- old/Software-License-0.103009/lib/Software/License/Custom.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/Custom.pm 2014-03-30 04:13:26.000000000 +0200 @@ -2,79 +2,79 @@ use warnings; package Software::License::Custom; # ABSTRACT: custom license handler -$Software::License::Custom::VERSION = '0.103009'; +$Software::License::Custom::VERSION = '0.103010'; use parent 'Software::License'; use Carp; use Text::Template; -# =head1 DESCRIPTION -# -# This module extends LSoftware::License to give the possibility of specifying -# all aspects related to a software license in a custom file. This allows for -# setting custom dates, notices, etc. while still preserving compatibility with -# all places where LSoftware::License is used, e.g. LDist::Zilla. -# -# In this way, you should be able to customise some aspects of the licensing -# messages that would otherwise be difficult to tinker, e.g. adding a note -# in the notice, setting multiple years for the copyright notice or set multiple -# authors and/or copyright holders. -# -# The license details should be put inside a file that contains different -# sections. Each section has the following format: -# -# =begin :list -# -# = header line -# -# This is a line that begins and ends with two underscores C<__>. The string -# between the begin and the end of the line is first depured of any non-word -# character, then used as the name of the section; -# -# = body -# -# a LText::Template (possibly a plain text file) where items to be -# expanded are enclosed between double braces -# -# =end :list -# -# Each section is terminated by the header of the following section or by -# the end of the file. Example: -# -# __[ NAME ]__ -# The Foo-Bar License -# __URL__ -# http://www.example.com/foo-bar.txt -# __[ META_NAME ]__ -# foo_bar_meta -# __{ META2_NAME }__ -# foo_bar_meta2 -# __[ NOTICE ]__ -# Copyright (C) 2000-2002 by P.R. Evious -# Copyright (C) {{$self->year}} by {{$self->holder}}. -# -# This is free software, licensed under {{$self->name}}. -# -# __[ LICENSE ]__ -# The Foo-Bar License -# -# Well... this is only some sample text. Verily... only sample text!!! -# -# Yes, spanning more lines and more paragraphs. -# -# The different formats for specifying the section name in the example -# above are only examples, you're invited to use a consistent approach. -# -# =method new -# -# my $slc = Software::License::Custom->new({filename => 'LEGAL'}); -# -# Create a new object. Arguments are passed through an anonymous hash, the -# following keys are allowed: -# -# filename - the file where the custom software license details are stored -# -# =cut +#pod =head1 DESCRIPTION +#pod +#pod This module extends LSoftware::License to give the possibility of specifying +#pod all aspects related to a software license in a custom file. This allows for +#pod setting custom dates, notices, etc. while still preserving compatibility with +#pod all places where LSoftware::License is used, e.g. LDist::Zilla. +#pod +#pod In this way, you should be able to customise some aspects of the licensing +#pod messages that would otherwise be difficult to tinker, e.g. adding a note +#pod in the notice, setting multiple years for the copyright notice or set multiple +#pod authors and/or copyright holders. +#pod +#pod The license details should be put inside a file that contains different +#pod sections. Each section has the following format: +#pod +#pod =begin :list +#pod +#pod = header line +#pod +#pod This is a line that begins and ends with two underscores C<__>. The string +#pod between the begin and the end of the line is first depured of any non-word +#pod character, then used as the name of the section; +#pod +#pod = body +#pod +#pod a LText::Template (possibly a plain text file) where items to be +#pod expanded are enclosed between double braces +#pod +#pod =end :list +#pod +#pod Each section is terminated by the header of the following section or by +#pod the end of the file. Example: +#pod +#pod __[ NAME ]__ +#pod The Foo-Bar License +#pod __URL__ +#pod http://www.example.com/foo-bar.txt +#pod __[ META_NAME ]__ +#pod foo_bar_meta +#pod __{ META2_NAME }__ +#pod foo_bar_meta2 +#pod __[ NOTICE ]__ +#pod Copyright (C) 2000-2002 by P.R. Evious +#pod Copyright (C) {{$self->year}} by {{$self->holder}}. +#pod +#pod This is free software, licensed under {{$self->name}}. +#pod +#pod __[ LICENSE ]__ +#pod The Foo-Bar License +#pod +#pod Well... this is only some sample text. Verily... only sample text!!! +#pod +#pod Yes, spanning more lines and more paragraphs. +#pod +#pod The different formats for specifying the section name in the example +#pod above are only examples, you're invited to use a consistent approach. +#pod +#pod =method new +#pod +#pod my $slc = Software::License::Custom->new({filename => 'LEGAL'}); +#pod +#pod Create a new object. Arguments are passed through an anonymous hash, the +#pod following keys are allowed: +#pod +#pod filename - the file where the custom software license details are stored +#pod +#pod =cut sub new { my ($class, $arg) = @_; @@ -88,15 +88,15 @@ return $self; } -# =method load_sections_from -# -# $slc->load_sections_from('MY-LEGAL-ASPECTS'); -# -# Loads the different sections of the license from the provided filename. -# -# Returns the input object. -# -# =cut +#pod =method load_sections_from +#pod +#pod $slc->load_sections_from('MY-LEGAL-ASPECTS'); +#pod +#pod Loads the different sections of the license from the provided filename. +#pod +#pod Returns the input object. +#pod +#pod =cut sub load_sections_from { my ($self, $filename) = @_; @@ -123,15 +123,15 @@ return $self; } -# =method section_data -# -# my $notice_template_reference = $slc->section_data('NOTICE'); -# -# Returns a reference to a textual template that can be fed to -# LText::Template (it could be simple text), according to what is -# currently loaded in the object. -# -# =cut +#pod =method section_data +#pod +#pod my $notice_template_reference = $slc->section_data('NOTICE'); +#pod +#pod Returns a reference to a textual template that can be fed to +#pod LText::Template (it could be simple text), according to what is +#pod currently loaded in the object. +#pod +#pod =cut sub section_data { my ($self, $name) = @_; @@ -141,26 +141,26 @@ return \$section_for->{$name}; } -# =head1 MORE METHODS -# -# The following methods, found in all software license classes, look up and -# render the template with the capitalized form of their name. In other words, -# the C<license> method looks in the C<LICENSE> template. -# -# For now, the C and C methods return C<custom> if called -# on the class. This may become fatal in the future. -# -# =for :list -# * name -# * url -# * meta_name -# * meta2_name -# * license -# * notice -# * fulltext -# * version -# -# =cut +#pod =head1 MORE METHODS +#pod +#pod The following methods, found in all software license classes, look up and +#pod render the template with the capitalized form of their name. In other words, +#pod the C<license> method looks in the C<LICENSE> template. +#pod +#pod For now, the C and C methods return C<custom> if called +#pod on the class. This may become fatal in the future. +#pod +#pod =for :list +#pod * name +#pod * url +#pod * meta_name +#pod * meta2_name +#pod * license +#pod * notice +#pod * fulltext +#pod * version +#pod +#pod =cut sub name { shift->_fill_in('NAME') } sub url { shift->_fill_in('URL') } @@ -205,7 +205,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/FreeBSD.pm new/Software-License-0.103010/lib/Software/License/FreeBSD.pm --- old/Software-License-0.103009/lib/Software/License/FreeBSD.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/FreeBSD.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::FreeBSD; -$Software::License::FreeBSD::VERSION = '0.103009'; +$Software::License::FreeBSD::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: The FreeBSD License (aka two-clause BSD) @@ -23,7 +23,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/GFDL_1_2.pm new/Software-License-0.103010/lib/Software/License/GFDL_1_2.pm --- old/Software-License-0.103009/lib/Software/License/GFDL_1_2.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/GFDL_1_2.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::GFDL_1_2; -$Software::License::GFDL_1_2::VERSION = '0.103009'; +$Software::License::GFDL_1_2::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: The GNU Free Documentation License v1.2 @@ -22,7 +22,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/GFDL_1_3.pm new/Software-License-0.103010/lib/Software/License/GFDL_1_3.pm --- old/Software-License-0.103009/lib/Software/License/GFDL_1_3.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/GFDL_1_3.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::GFDL_1_3; -$Software::License::GFDL_1_3::VERSION = '0.103009'; +$Software::License::GFDL_1_3::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: The GNU Free Documentation License v1.3 @@ -22,7 +22,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/GPL_1.pm new/Software-License-0.103010/lib/Software/License/GPL_1.pm --- old/Software-License-0.103009/lib/Software/License/GPL_1.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/GPL_1.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::GPL_1; -$Software::License::GPL_1::VERSION = '0.103009'; +$Software::License::GPL_1::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: GNU General Public License, Version 1 @@ -22,7 +22,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/GPL_2.pm new/Software-License-0.103010/lib/Software/License/GPL_2.pm --- old/Software-License-0.103009/lib/Software/License/GPL_2.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/GPL_2.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::GPL_2; -$Software::License::GPL_2::VERSION = '0.103009'; +$Software::License::GPL_2::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: GNU General Public License, Version 2 @@ -22,7 +22,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/GPL_3.pm new/Software-License-0.103010/lib/Software/License/GPL_3.pm --- old/Software-License-0.103009/lib/Software/License/GPL_3.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/GPL_3.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::GPL_3; -$Software::License::GPL_3::VERSION = '0.103009'; +$Software::License::GPL_3::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: GNU General Public License, Version 3 @@ -22,7 +22,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/LGPL_2_1.pm new/Software-License-0.103010/lib/Software/License/LGPL_2_1.pm --- old/Software-License-0.103009/lib/Software/License/LGPL_2_1.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/LGPL_2_1.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::LGPL_2_1; -$Software::License::LGPL_2_1::VERSION = '0.103009'; +$Software::License::LGPL_2_1::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: GNU Lesser General Public License, Version 2.1 @@ -22,7 +22,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/LGPL_3_0.pm new/Software-License-0.103010/lib/Software/License/LGPL_3_0.pm --- old/Software-License-0.103009/lib/Software/License/LGPL_3_0.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/LGPL_3_0.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::LGPL_3_0; -$Software::License::LGPL_3_0::VERSION = '0.103009'; +$Software::License::LGPL_3_0::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: GNU Lesser General Public License, Version 3 @@ -37,7 +37,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/MIT.pm new/Software-License-0.103010/lib/Software/License/MIT.pm --- old/Software-License-0.103009/lib/Software/License/MIT.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/MIT.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::MIT; -$Software::License::MIT::VERSION = '0.103009'; +$Software::License::MIT::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: The MIT (aka X11) License @@ -22,7 +22,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/Mozilla_1_0.pm new/Software-License-0.103010/lib/Software/License/Mozilla_1_0.pm --- old/Software-License-0.103009/lib/Software/License/Mozilla_1_0.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/Mozilla_1_0.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::Mozilla_1_0; -$Software::License::Mozilla_1_0::VERSION = '0.103009'; +$Software::License::Mozilla_1_0::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: Mozilla Public License 1.0 @@ -22,7 +22,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/Mozilla_1_1.pm new/Software-License-0.103010/lib/Software/License/Mozilla_1_1.pm --- old/Software-License-0.103009/lib/Software/License/Mozilla_1_1.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/Mozilla_1_1.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::Mozilla_1_1; -$Software::License::Mozilla_1_1::VERSION = '0.103009'; +$Software::License::Mozilla_1_1::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: The Mozilla Public License 1.1 @@ -22,7 +22,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/Mozilla_2_0.pm new/Software-License-0.103010/lib/Software/License/Mozilla_2_0.pm --- old/Software-License-0.103009/lib/Software/License/Mozilla_2_0.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/Mozilla_2_0.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::Mozilla_2_0; -$Software::License::Mozilla_2_0::VERSION = '0.103009'; +$Software::License::Mozilla_2_0::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: Mozilla Public License Version 2.0 @@ -22,7 +22,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/None.pm new/Software-License-0.103010/lib/Software/License/None.pm --- old/Software-License-0.103009/lib/Software/License/None.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/None.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::None; -$Software::License::None::VERSION = '0.103009'; +$Software::License::None::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: describes a "license" that gives no license for re-use @@ -23,7 +23,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/OpenSSL.pm new/Software-License-0.103010/lib/Software/License/OpenSSL.pm --- old/Software-License-0.103009/lib/Software/License/OpenSSL.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/OpenSSL.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::OpenSSL; -$Software::License::OpenSSL::VERSION = '0.103009'; +$Software::License::OpenSSL::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: The OpenSSL License @@ -32,7 +32,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/Perl_5.pm new/Software-License-0.103010/lib/Software/License/Perl_5.pm --- old/Software-License-0.103009/lib/Software/License/Perl_5.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/Perl_5.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::Perl_5; -$Software::License::Perl_5::VERSION = '0.103009'; +$Software::License::Perl_5::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: The Perl 5 License (Artistic 1 & GPL 1) @@ -41,7 +41,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/PostgreSQL.pm new/Software-License-0.103010/lib/Software/License/PostgreSQL.pm --- old/Software-License-0.103009/lib/Software/License/PostgreSQL.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/PostgreSQL.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::PostgreSQL; -$Software::License::PostgreSQL::VERSION = '0.103009'; +$Software::License::PostgreSQL::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: The PostgreSQL License @@ -23,7 +23,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/QPL_1_0.pm new/Software-License-0.103010/lib/Software/License/QPL_1_0.pm --- old/Software-License-0.103009/lib/Software/License/QPL_1_0.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/QPL_1_0.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::QPL_1_0; -$Software::License::QPL_1_0::VERSION = '0.103009'; +$Software::License::QPL_1_0::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: The Q Public License, Version 1.0 @@ -23,7 +23,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/SSLeay.pm new/Software-License-0.103010/lib/Software/License/SSLeay.pm --- old/Software-License-0.103009/lib/Software/License/SSLeay.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/SSLeay.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::SSLeay; -$Software::License::SSLeay::VERSION = '0.103009'; +$Software::License::SSLeay::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: The Original SSLeay License @@ -22,7 +22,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/Sun.pm new/Software-License-0.103010/lib/Software/License/Sun.pm --- old/Software-License-0.103009/lib/Software/License/Sun.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/Sun.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::Sun; -$Software::License::Sun::VERSION = '0.103009'; +$Software::License::Sun::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: Sun Internet Standards Source License (SISSL) @@ -23,7 +23,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License/Zlib.pm new/Software-License-0.103010/lib/Software/License/Zlib.pm --- old/Software-License-0.103009/lib/Software/License/Zlib.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License/Zlib.pm 2014-03-30 04:13:26.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Software::License::Zlib; -$Software::License::Zlib::VERSION = '0.103009'; +$Software::License::Zlib::VERSION = '0.103010'; use parent 'Software::License'; # ABSTRACT: The zlib License @@ -23,7 +23,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/License.pm new/Software-License-0.103010/lib/Software/License.pm --- old/Software-License-0.103009/lib/Software/License.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/License.pm 2014-03-30 04:13:26.000000000 +0200 @@ -3,30 +3,30 @@ use 5.006; # warnings package Software::License; # ABSTRACT: packages that provide templated software licenses -$Software::License::VERSION = '0.103009'; +$Software::License::VERSION = '0.103010'; use Data::Section -setup => { header_re => qr/\A__([^_]+)__\Z/ }; use Sub::Install (); use Text::Template (); -# =head1 SYNOPSIS -# -# my $license = Software::License::Discordian->new({ -# holder => 'Ricardo Signes', -# }); -# -# print $output_fh $license->fulltext; -# -# =method new -# -# my $license = $subclass->new(\%arg); -# -# This method returns a new license object for the given license class. Valid -# arguments are: -# -# holder - the holder of the copyright; required -# year - the year of copyright; defaults to current year -# -# =cut +#pod =head1 SYNOPSIS +#pod +#pod my $license = Software::License::Discordian->new({ +#pod holder => 'Ricardo Signes', +#pod }); +#pod +#pod print $output_fh $license->fulltext; +#pod +#pod =method new +#pod +#pod my $license = $subclass->new(\%arg); +#pod +#pod This method returns a new license object for the given license class. Valid +#pod arguments are: +#pod +#pod holder - the holder of the copyright; required +#pod year - the year of copyright; defaults to current year +#pod +#pod =cut sub new { my ($class, $arg) = @_; @@ -36,64 +36,64 @@ bless $arg => $class; } -# =method year -# -# =method holder -# -# These methods are attribute readers. -# -# =cut +#pod =method year +#pod +#pod =method holder +#pod +#pod These methods are attribute readers. +#pod +#pod =cut sub year { defined $_[0]->{year} ? $_[0]->{year} : (localtime)[5]+1900 } sub holder { $_[0]->{holder} } -# =method name -# -# This method returns the name of the license, suitable for shoving in the middle -# of a sentence, generally with a leading capitalized "The." -# -# =method url -# -# This method returns the URL at which a canonical text of the license can be -# found, if one is available. If possible, this will point at plain text, but it -# may point to an HTML resource. -# -# =method notice -# -# This method returns a snippet of text, usually a few lines, indicating the -# copyright holder and year of copyright, as well as an indication of the license -# under which the software is distributed. -# -# =cut +#pod =method name +#pod +#pod This method returns the name of the license, suitable for shoving in the middle +#pod of a sentence, generally with a leading capitalized "The." +#pod +#pod =method url +#pod +#pod This method returns the URL at which a canonical text of the license can be +#pod found, if one is available. If possible, this will point at plain text, but it +#pod may point to an HTML resource. +#pod +#pod =method notice +#pod +#pod This method returns a snippet of text, usually a few lines, indicating the +#pod copyright holder and year of copyright, as well as an indication of the license +#pod under which the software is distributed. +#pod +#pod =cut sub notice { shift->_fill_in('NOTICE') } -# =method license -# -# This method returns the full text of the license. -# -# =cut +#pod =method license +#pod +#pod This method returns the full text of the license. +#pod +#pod =cut sub license { shift->_fill_in('LICENSE') } -# =method fulltext -# -# This method returns the complete text of the license, preceded by the copyright -# notice. -# -# =cut +#pod =method fulltext +#pod +#pod This method returns the complete text of the license, preceded by the copyright +#pod notice. +#pod +#pod =cut sub fulltext { my ($self) = @_; return join "\n", $self->notice, $self->license; } -# =method version -# -# This method returns the version of the license. If the license is not -# versioned, this method will return false. -# -# =cut +#pod =method version +#pod +#pod This method returns the version of the license. If the license is not +#pod versioned, this method will return false. +#pod +#pod =cut sub version { my ($self) = @_; @@ -105,23 +105,23 @@ return join '.', @vparts; } -# =method meta_name -# -# This method returns the string that should be used for this license in the CPAN -# META.yml file, according to the CPAN Meta spec v1, or undef if there is no -# known string to use. -# -# This method may also be invoked as C for legacy reasons. -# -# =method meta2_name -# -# This method returns the string that should be used for this license in the CPAN -# META.json or META.yml file, according to the CPAN Meta spec v2, or undef if -# there is no known string to use. If this method does not exist, and -# C returns open_source, restricted, unrestricted, or unknown, that -# value will be used. -# -# =cut +#pod =method meta_name +#pod +#pod This method returns the string that should be used for this license in the CPAN +#pod META.yml file, according to the CPAN Meta spec v1, or undef if there is no +#pod known string to use. +#pod +#pod This method may also be invoked as C for legacy reasons. +#pod +#pod =method meta2_name +#pod +#pod This method returns the string that should be used for this license in the CPAN +#pod META.json or META.yml file, according to the CPAN Meta spec v2, or undef if +#pod there is no known string to use. If this method does not exist, and +#pod C returns open_source, restricted, unrestricted, or unknown, that +#pod value will be used. +#pod +#pod =cut # sub meta1_name { return undef; } # sort this out later, should be easy sub meta_name { return undef; } @@ -152,49 +152,49 @@ ); } -# =head1 LOOKING UP LICENSE CLASSES -# -# If you have an entry in a F or F file, or similar -# metadata, and want to look up the Software::License class to use, there are -# useful tools in LSoftware::LicenseUtils. -# -# =head1 TODO -# -# =for :list -# * register licenses with aliases to allow $registry->get('gpl', 2); -# -# =head1 SEE ALSO -# -# The specific license: -# -# =for :list -# * LSoftware::License::AGPL_3 -# * LSoftware::License::Apache_1_1 -# * LSoftware::License::Apache_2_0 -# * LSoftware::License::Artistic_1_0 -# * LSoftware::License::Artistic_2_0 -# * LSoftware::License::BSD -# * LSoftware::License::CC0 -# * LSoftware::License::FreeBSD -# * LSoftware::License::GFDL_1_2 -# * LSoftware::License::GPL_1 -# * LSoftware::License::GPL_2 -# * LSoftware::License::GPL_3 -# * LSoftware::License::LGPL_2_1 -# * LSoftware::License::LGPL_3_0 -# * LSoftware::License::MIT -# * LSoftware::License::Mozilla_1_0 -# * LSoftware::License::Mozilla_1_1 -# * LSoftware::License::Mozilla_2_0 -# * LSoftware::License::None -# * LSoftware::License::OpenSSL -# * LSoftware::License::Perl_5 -# * LSoftware::License::QPL_1_0 -# * LSoftware::License::SSLeay -# * LSoftware::License::Sun -# * LSoftware::License::Zlib -# -# =cut +#pod =head1 LOOKING UP LICENSE CLASSES +#pod +#pod If you have an entry in a F or F file, or similar +#pod metadata, and want to look up the Software::License class to use, there are +#pod useful tools in LSoftware::LicenseUtils. +#pod +#pod =head1 TODO +#pod +#pod =for :list +#pod * register licenses with aliases to allow $registry->get('gpl', 2); +#pod +#pod =head1 SEE ALSO +#pod +#pod The specific license: +#pod +#pod =for :list +#pod * LSoftware::License::AGPL_3 +#pod * LSoftware::License::Apache_1_1 +#pod * LSoftware::License::Apache_2_0 +#pod * LSoftware::License::Artistic_1_0 +#pod * LSoftware::License::Artistic_2_0 +#pod * LSoftware::License::BSD +#pod * LSoftware::License::CC0 +#pod * LSoftware::License::FreeBSD +#pod * LSoftware::License::GFDL_1_2 +#pod * LSoftware::License::GPL_1 +#pod * LSoftware::License::GPL_2 +#pod * LSoftware::License::GPL_3 +#pod * LSoftware::License::LGPL_2_1 +#pod * LSoftware::License::LGPL_3_0 +#pod * LSoftware::License::MIT +#pod * LSoftware::License::Mozilla_1_0 +#pod * LSoftware::License::Mozilla_1_1 +#pod * LSoftware::License::Mozilla_2_0 +#pod * LSoftware::License::None +#pod * LSoftware::License::OpenSSL +#pod * LSoftware::License::Perl_5 +#pod * LSoftware::License::QPL_1_0 +#pod * LSoftware::License::SSLeay +#pod * LSoftware::License::Sun +#pod * LSoftware::License::Zlib +#pod +#pod =cut 1; @@ -208,7 +208,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/lib/Software/LicenseUtils.pm new/Software-License-0.103010/lib/Software/LicenseUtils.pm --- old/Software-License-0.103009/lib/Software/LicenseUtils.pm 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/lib/Software/LicenseUtils.pm 2014-03-30 04:13:26.000000000 +0200 @@ -4,22 +4,22 @@ package Software::LicenseUtils; # ABSTRACT: little useful bits of code for licensey things -$Software::LicenseUtils::VERSION = '0.103009'; +$Software::LicenseUtils::VERSION = '0.103010'; use File::Spec; use IO::Dir; use Module::Load; -# =method guess_license_from_pod -# -# my @guesses = Software::LicenseUtils->guess_license_from_pod($pm_text); -# -# Given text containing POD, like a .pm file, this method will attempt to guess -# at the license under which the code is available. This method will either -# a list of Software::License classes (or instances) or false. -# -# Calling this method in scalar context is a fatal error. -# -# =cut +#pod =method guess_license_from_pod +#pod +#pod my @guesses = Software::LicenseUtils->guess_license_from_pod($pm_text); +#pod +#pod Given text containing POD, like a .pm file, this method will attempt to guess +#pod at the license under which the code is available. This method will either +#pod a list of Software::License classes (or instances) or false. +#pod +#pod Calling this method in scalar context is a fatal error. +#pod +#pod =cut my $_v = qr/(?:v(?:er(?:sion|\.))(?: |\.)?)/i; my @phrases = ( @@ -39,8 +39,8 @@ $_[0] == 2 ? 'LGPL_2_1' : $_[0] == 3 ? 'LGPL_3_0' : () }, 'LGPL' => [ qw(LGPL_2_1 LGPL_3_0) ], - "GPL,? $_v?(\\d)" => sub { "GPL_$_[0]_0" }, - 'GPL' => [ map { "GPL_$_\_0" } (1..3) ], + "GPL,? $_v?(\\d)" => sub { "GPL_$_[0]" }, + 'GPL' => [ map { "GPL_$_" } (1..3) ], 'BSD' => 'BSD', 'Artistic' => [ map { "Artistic_$_\_0" } (1..2) ], 'MIT' => 'MIT', @@ -124,15 +124,15 @@ return; } -# =method guess_license_from_meta -# -# my @guesses = Software::LicenseUtils->guess_license_from_meta($meta_str); -# -# Given the content of the META.(yml|json) file found in a CPAN distribution, this -# method makes a guess as to which licenses may apply to the distribution. It -# will return a list of zero or more Software::License instances or classes. -# -# =cut +#pod =method guess_license_from_meta +#pod +#pod my @guesses = Software::LicenseUtils->guess_license_from_meta($meta_str); +#pod +#pod Given the content of the META.(yml|json) file found in a CPAN distribution, this +#pod method makes a guess as to which licenses may apply to the distribution. It +#pod will return a list of zero or more Software::License instances or classes. +#pod +#pod =cut sub guess_license_from_meta { my ($class, $meta_text) = @_; @@ -150,15 +150,15 @@ *guess_license_from_meta_yml = \&guess_license_from_meta; } -# =method guess_license_from_meta_key -# -# my @guesses = Software::LicenseUtils->guess_license_from_meta_key($key, $v); -# -# This method returns zero or more Software::License classes known to use C<$key> -# as their META key. If C<$v> is supplied, it specifies whether to treat C<$key> -# as a v1 or v2 meta entry. Any value other than 1 or 2 will raise an exception. -# -# =cut +#pod =method guess_license_from_meta_key +#pod +#pod my @guesses = Software::LicenseUtils->guess_license_from_meta_key($key, $v); +#pod +#pod This method returns zero or more Software::License classes known to use C<$key> +#pod as their META key. If C<$v> is supplied, it specifies whether to treat C<$key> +#pod as a v1 or v2 meta entry. Any value other than 1 or 2 will raise an exception. +#pod +#pod =cut sub guess_license_from_meta_key { my ($self, $key, $v) = @_; @@ -185,18 +185,18 @@ 'Artistic-2' => 'Software::License::Artistic_2_0', ); -# =method new_from_short_name -# -# my $license_object = Software::LicenseUtils->new_from_short_name( { -# short_name => 'GPL-1', -# holder => 'X. Ample' -# }) ; -# -# Create a new LSoftware::License object from the license specified -# with C. Known short license names are C, C , -# C<Artistic> and C -# -# =cut +#pod =method new_from_short_name +#pod +#pod my $license_object = Software::LicenseUtils->new_from_short_name( { +#pod short_name => 'GPL-1', +#pod holder => 'X. Ample' +#pod }) ; +#pod +#pod Create a new LSoftware::License object from the license specified +#pod with C. Known short license names are C, C , +#pod C<Artistic> and C +#pod +#pod =cut sub new_from_short_name { my ( $class, $arg ) = @_; @@ -227,7 +227,7 @@ =head1 VERSION -version 0.103009 +version 0.103010 =head1 METHODS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Software-License-0.103009/xt/release/changes_has_content.t new/Software-License-0.103010/xt/release/changes_has_content.t --- old/Software-License-0.103009/xt/release/changes_has_content.t 2014-02-21 04:19:51.000000000 +0100 +++ new/Software-License-0.103010/xt/release/changes_has_content.t 2014-03-30 04:13:26.000000000 +0200 @@ -4,7 +4,7 @@ note 'Checking Changes'; my $changes_file = 'Changes'; -my $newver = '0.103009'; +my $newver = '0.103010'; my $trial_token = '-TRIAL'; SKIP: { -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org