[licensecheck] 28/112: Introduce new modules: Pattern::License Pattern::License::Parts.

[Jonas Smedegaard]

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

js pushed a commit to branch master
in repository licensecheck.

commit b52c6ddbc42900f8ac71ee7c4369ee712e5a3c41
Author: Jonas Smedegaard <dr at jones.dk>
Date:   Tue Oct 11 14:29:14 2016 +0200

    Introduce new modules: Pattern::License Pattern::License::Parts.
---
 lib/Regexp/Pattern/License.pm       | 63 +++++++++++++++++++++++++++++++++++++
 lib/Regexp/Pattern/License/Parts.pm | 61 +++++++++++++++++++++++++++++++++++
 2 files changed, 124 insertions(+)

diff --git a/lib/Regexp/Pattern/License.pm b/lib/Regexp/Pattern/License.pm
new file mode 100644
index 0000000..356fd14
--- /dev/null
+++ b/lib/Regexp/Pattern/License.pm
@@ -0,0 +1,63 @@
+package Regexp::Pattern::License;
+
+use utf8;
+use strictures 2;
+
+use Regexp::Pattern::License::Parts;
+
+=head1 NAME
+
+Regexp::Pattern::License - Regular expressions for legal licenses
+
+=head1 DESCRIPTION
+
+L<Regexp::Pattern::License> provides a hash of regular expression patterns
+related to legal software licenses.
+
+L<Regexp::Pattern> is a convention for organizing reusable regex patterns.
+
+=head1 PATTERNS
+
+=head2 Single licenses
+
+Patterns each covering a single license.
+
+=over
+
+=back
+
+=cut
+
+my %P;
+while ( my ( $key, $val ) = each %Regexp::Pattern::License::Parts::RE ) {
+	$P{$key} = $val->{pat};
+}
+
+our %RE = ();
+
+=encoding UTF-8
+
+=head1 AUTHOR
+
+Jonas Smedegaard C<< <dr at jones.dk> >>
+
+=head1 COPYRIGHT AND LICENSE
+
+  Copyright © 2016 Jonas Smedegaard
+
+This program is free software; you can redistribute it and/or modify it
+under the terms of the GNU General Public License as published by the
+Free Software Foundation; either version 3, or (at your option) any
+later version.
+
+This program is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+General Public License for more details.
+
+You should have received a copy of the GNU General Public License along
+with this program. If not, see <https://www.gnu.org/licenses/>.
+
+=cut
+
+1;
diff --git a/lib/Regexp/Pattern/License/Parts.pm b/lib/Regexp/Pattern/License/Parts.pm
new file mode 100644
index 0000000..bf75f10
--- /dev/null
+++ b/lib/Regexp/Pattern/License/Parts.pm
@@ -0,0 +1,61 @@
+package Regexp::Pattern::License::Parts;
+
+use utf8;
+use strictures 2;
+
+=head1 NAME
+
+Regexp::Pattern::License::Parts - Regular expressions for licensing sub-parts
+
+=head1 SYNOPSIS
+
+ use Regexp::Pattern; # exports re()
+ my $re = re("License::Parts::mit_advertising");
+
+=head1 DESCRIPTION
+
+L<Regexp::Pattern::License::Parts> provides a hash of regular expression patterns
+related to sub-parts of legal software licenses.
+
+L<Regexp::Pattern> is a convention for organizing reusable regex patterns.
+
+=head1 PATTERNS
+
+=head2 Single part
+
+Patterns each covering a single part, e.g. a clause or a disclaimer phrase.
+
+=over
+
+=back
+
+=cut
+
+our %RE = ();
+
+=encoding UTF-8
+
+=head1 AUTHOR
+
+Jonas Smedegaard C<< <dr at jones.dk> >>
+
+=head1 COPYRIGHT AND LICENSE
+
+  Copyright © 2016 Jonas Smedegaard
+
+This program is free software; you can redistribute it and/or modify it
+under the terms of the GNU General Public License as published by the
+Free Software Foundation; either version 3, or (at your option) any
+later version.
+
+This program is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+General Public License for more details.
+
+You should have received a copy of the GNU General Public License along
+with this program. If not, see <https://www.gnu.org/licenses/>.
+
+=cut
+
+1;

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