From 675dffa567934d95e8fe8ab11ab25cadf1300c0e Mon Sep 17 00:00:00 2001 From: Daniel Nichter Date: Tue, 19 Mar 2013 11:50:21 -0600 Subject: [PATCH] Add headers to Lmo/*.pm so update-modules can handle them. --- lib/Lmo/Meta.pm | 24 +++++++++++++++++++++++- lib/Lmo/Object.pm | 26 ++++++++++++++++++++++++-- lib/Lmo/Role.pm | 23 +++++++++++++++++++++++ lib/Lmo/Types.pm | 22 ++++++++++++++++++++++ lib/Lmo/Utils.pm | 30 +++++++++++++++++++++++++++++- 5 files changed, 121 insertions(+), 4 deletions(-) diff --git a/lib/Lmo/Meta.pm b/lib/Lmo/Meta.pm index ee2aeb75..94f627c7 100644 --- a/lib/Lmo/Meta.pm +++ b/lib/Lmo/Meta.pm @@ -1,3 +1,22 @@ +# This program is copyright 2013 Percona Ireland Ltd. +# Feedback and improvements are welcome. +# +# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED +# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF +# MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. +# +# 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, version 2; OR the Perl Artistic License. On UNIX and similar +# systems, you can issue `man perlgpl' or `man perlartistic' to read these +# licenses. +# +# You should have received a copy of the GNU General Public License along with +# this program; if not, write to the Free Software Foundation, Inc., 59 Temple +# Place, Suite 330, Boston, MA 02111-1307 USA. +# ########################################################################### +# Lmo::Meta package +# ########################################################################### { package Lmo::Meta; use strict; @@ -42,4 +61,7 @@ sub attributes_for_new { } 1; -} \ No newline at end of file +} +# ########################################################################### +# End Lmo::Meta package +# ########################################################################### diff --git a/lib/Lmo/Object.pm b/lib/Lmo/Object.pm index 2f587172..b823abe4 100644 --- a/lib/Lmo/Object.pm +++ b/lib/Lmo/Object.pm @@ -1,4 +1,24 @@ -# Mo::Object is the parent of every Mo-derived object. Here's where new +# This program is copyright 2013 Percona Ireland Ltd. +# Feedback and improvements are welcome. +# +# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED +# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF +# MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. +# +# 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, version 2; OR the Perl Artistic License. On UNIX and similar +# systems, you can issue `man perlgpl' or `man perlartistic' to read these +# licenses. +# +# You should have received a copy of the GNU General Public License along with +# this program; if not, write to the Free Software Foundation, Inc., 59 Temple +# Place, Suite 330, Boston, MA 02111-1307 USA. +# ########################################################################### +# Lmo::Object package +# ########################################################################### + +# Lmo::Object is the parent of every Mo-derived object. Here's where new # and BUILDARGS gets inherited from. package Lmo::Object; @@ -93,5 +113,7 @@ sub meta { return Lmo::Meta->new(class => $class); } - 1; +# ########################################################################### +# End Lmo::Object package +# ########################################################################### diff --git a/lib/Lmo/Role.pm b/lib/Lmo/Role.pm index 411f7da3..f9e0a30e 100644 --- a/lib/Lmo/Role.pm +++ b/lib/Lmo/Role.pm @@ -1,3 +1,23 @@ +# This program is copyright 2013 Percona Ireland Ltd. +# Feedback and improvements are welcome. +# +# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED +# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF +# MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. +# +# 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, version 2; OR the Perl Artistic License. On UNIX and similar +# systems, you can issue `man perlgpl' or `man perlartistic' to read these +# licenses. +# +# You should have received a copy of the GNU General Public License along with +# this program; if not, write to the Free Software Foundation, Inc., 59 Temple +# Place, Suite 330, Boston, MA 02111-1307 USA. +# ########################################################################### +# Lmo::Role package +# ########################################################################### + package Lmo::Role; use strict; @@ -70,3 +90,6 @@ sub unimport { } 1; +# ########################################################################### +# End Lmo::Role package +# ########################################################################### diff --git a/lib/Lmo/Types.pm b/lib/Lmo/Types.pm index 12d8b540..56bdda52 100644 --- a/lib/Lmo/Types.pm +++ b/lib/Lmo/Types.pm @@ -1,3 +1,22 @@ +# This program is copyright 2013 Percona Ireland Ltd. +# Feedback and improvements are welcome. +# +# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED +# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF +# MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. +# +# 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, version 2; OR the Perl Artistic License. On UNIX and similar +# systems, you can issue `man perlgpl' or `man perlartistic' to read these +# licenses. +# +# You should have received a copy of the GNU General Public License along with +# this program; if not, write to the Free Software Foundation, Inc., 59 Temple +# Place, Suite 330, Boston, MA 02111-1307 USA. +# ########################################################################### +# Lmo::Types package +# ########################################################################### package Lmo::Types; use strict; @@ -96,3 +115,6 @@ sub _nested_constraints { } 1; +# ########################################################################### +# End Lmo::Types package +# ########################################################################### diff --git a/lib/Lmo/Utils.pm b/lib/Lmo/Utils.pm index 4cd89565..5ba40fef 100644 --- a/lib/Lmo/Utils.pm +++ b/lib/Lmo/Utils.pm @@ -1,4 +1,24 @@ +# This program is copyright 2013 Percona Ireland Ltd. +# Feedback and improvements are welcome. +# +# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED +# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF +# MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. +# +# 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, version 2; OR the Perl Artistic License. On UNIX and similar +# systems, you can issue `man perlgpl' or `man perlartistic' to read these +# licenses. +# +# You should have received a copy of the GNU General Public License along with +# this program; if not, write to the Free Software Foundation, Inc., 59 Temple +# Place, Suite 330, Boston, MA 02111-1307 USA. +# ########################################################################### +# Lmo::Types package +# ########################################################################### package Lmo::Utils; + use strict; use warnings qw( FATAL all ); require Exporter; @@ -6,7 +26,12 @@ our (@ISA, @EXPORT, @EXPORT_OK); BEGIN { @ISA = qw(Exporter); - @EXPORT = @EXPORT_OK = qw(_install_coderef _unimport_coderefs _glob_for _stash_for); + @EXPORT = @EXPORT_OK = qw( + _install_coderef + _unimport_coderefs + _glob_for + _stash_for + ); } { @@ -44,3 +69,6 @@ sub _unimport_coderefs { } 1; +# ########################################################################### +# End Lmo::Utils package +# ###########################################################################