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 - [email protected]
+
+- 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 <[email protected]>"
],
"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 L<Software::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 L<Software::License> is used, e.g. L<Dist::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 L<Text::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 L<Software::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 L<Software::License> is used, e.g. L<Dist::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 L<Text::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
-# L<Text::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 L<Text::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<meta_name> and C<meta2_name> 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<meta_name> and C<meta2_name> 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<meta_yml_name> 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<meta_name> 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<meta_yml_name> 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<meta_name> 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<META.yml> or F<META.json> file, or similar
-# metadata, and want to look up the Software::License class to use, there are
-# useful tools in L<Software::LicenseUtils>.
-#
-# =head1 TODO
-#
-# =for :list
-# * register licenses with aliases to allow $registry->get('gpl', 2);
-#
-# =head1 SEE ALSO
-#
-# The specific license:
-#
-# =for :list
-# * L<Software::License::AGPL_3>
-# * L<Software::License::Apache_1_1>
-# * L<Software::License::Apache_2_0>
-# * L<Software::License::Artistic_1_0>
-# * L<Software::License::Artistic_2_0>
-# * L<Software::License::BSD>
-# * L<Software::License::CC0>
-# * L<Software::License::FreeBSD>
-# * L<Software::License::GFDL_1_2>
-# * L<Software::License::GPL_1>
-# * L<Software::License::GPL_2>
-# * L<Software::License::GPL_3>
-# * L<Software::License::LGPL_2_1>
-# * L<Software::License::LGPL_3_0>
-# * L<Software::License::MIT>
-# * L<Software::License::Mozilla_1_0>
-# * L<Software::License::Mozilla_1_1>
-# * L<Software::License::Mozilla_2_0>
-# * L<Software::License::None>
-# * L<Software::License::OpenSSL>
-# * L<Software::License::Perl_5>
-# * L<Software::License::QPL_1_0>
-# * L<Software::License::SSLeay>
-# * L<Software::License::Sun>
-# * L<Software::License::Zlib>
-#
-# =cut
+#pod =head1 LOOKING UP LICENSE CLASSES
+#pod
+#pod If you have an entry in a F<META.yml> or F<META.json> file, or similar
+#pod metadata, and want to look up the Software::License class to use, there
are
+#pod useful tools in L<Software::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 * L<Software::License::AGPL_3>
+#pod * L<Software::License::Apache_1_1>
+#pod * L<Software::License::Apache_2_0>
+#pod * L<Software::License::Artistic_1_0>
+#pod * L<Software::License::Artistic_2_0>
+#pod * L<Software::License::BSD>
+#pod * L<Software::License::CC0>
+#pod * L<Software::License::FreeBSD>
+#pod * L<Software::License::GFDL_1_2>
+#pod * L<Software::License::GPL_1>
+#pod * L<Software::License::GPL_2>
+#pod * L<Software::License::GPL_3>
+#pod * L<Software::License::LGPL_2_1>
+#pod * L<Software::License::LGPL_3_0>
+#pod * L<Software::License::MIT>
+#pod * L<Software::License::Mozilla_1_0>
+#pod * L<Software::License::Mozilla_1_1>
+#pod * L<Software::License::Mozilla_2_0>
+#pod * L<Software::License::None>
+#pod * L<Software::License::OpenSSL>
+#pod * L<Software::License::Perl_5>
+#pod * L<Software::License::QPL_1_0>
+#pod * L<Software::License::SSLeay>
+#pod * L<Software::License::Sun>
+#pod * L<Software::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 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-*>
-#
-# =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 L<Software::License> object from the license specified
+#pod with C<short_name>. Known short license names are C<GPL-*>, C<LGPL-*> ,
+#pod C<Artistic> and C<Artistic-*>
+#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: [email protected]
For additional commands, e-mail: [email protected]
