[libmoosex-has-sugar-perl] 05/06: Move down POD
Intrigeri
intrigeri at moszumanska.debian.org
Wed Aug 27 21:35:48 UTC 2014
This is an automated email from the git hooks/post-receive script.
intrigeri pushed a commit to annotated tag 1.000004-source
in repository libmoosex-has-sugar-perl.
commit 3662ff422f1732952d0656105cef7dc5ad80752f
Author: Kent Fredric <kentfredric at gmail.com>
Date: Fri Aug 15 15:22:42 2014 +1200
Move down POD
---
Changes | 4 +
lib/MooseX/Has/Sugar.pm | 214 +++++++++++++++++++-------------------
lib/MooseX/Has/Sugar/Minimal.pm | 44 ++++----
lib/MooseX/Has/Sugar/Saccharin.pm | 26 ++---
4 files changed, 141 insertions(+), 147 deletions(-)
diff --git a/Changes b/Changes
index 4db5abf..c7d5f86 100644
--- a/Changes
+++ b/Changes
@@ -5,6 +5,7 @@
- CPANDAY!
- no code changes.
- metadata updates.
+ - whitespace adjustment
[Dependencies::Stats]
- Dependencies changed since 1.000003, see misc/*.deps* for details
@@ -13,6 +14,9 @@
[Metadata]
- Add 1x contributor to x_contributors.
+ [Misc]
+ - Source POD moved down to produce less whitespace at the top of generated source.
+
1.000003 2014-08-07T11:02:32Z
[00 Trivial]
- Test::ReportPrereqs updated to be less fragile.
diff --git a/lib/MooseX/Has/Sugar.pm b/lib/MooseX/Has/Sugar.pm
index 46e4a19..32d31ea 100644
--- a/lib/MooseX/Has/Sugar.pm
+++ b/lib/MooseX/Has/Sugar.pm
@@ -10,6 +10,111 @@ our $VERSION = '1.000004';
# AUTHORITY
+use Carp ();
+use Sub::Exporter::Progressive (
+ -setup => {
+ exports => [ 'ro', 'rw', 'required', 'lazy', 'lazy_build', 'coerce', 'weak_ref', 'auto_deref', 'bare', ],
+ groups => {
+ isattrs => [ 'ro', 'rw', 'bare', ],
+ attrs => [ 'required', 'lazy', 'lazy_build', 'coerce', 'weak_ref', 'auto_deref', ],
+ default => [ 'ro', 'rw', 'bare', 'required', 'lazy', 'lazy_build', 'coerce', 'weak_ref', 'auto_deref', ],
+ },
+ },
+);
+
+=export_function C<bare>
+
+returns C<('is','bare')>
+
+=cut
+
+sub bare() {
+ return ( 'is', 'bare' );
+}
+
+=export_function C<ro>
+
+returns C<('is','ro')>
+
+=cut
+
+sub ro() {
+ return ( 'is', 'ro' );
+}
+
+=export_function C<rw>
+
+returns C<('is','rw')>
+
+=cut
+
+sub rw() {
+ return ( 'is', 'rw' );
+}
+
+=export_function C<required>
+
+returns C<('required',1)>
+
+=cut
+
+sub required() {
+ return ( 'required', 1 );
+}
+
+=export_function C<lazy>
+
+returns C<('lazy',1)>
+
+=cut
+
+sub lazy() {
+ return ( 'lazy', 1 );
+}
+
+=export_function C<lazy_build>
+
+returns C<('lazy_build',1)>
+
+=cut
+
+sub lazy_build() {
+ return ( 'lazy_build', 1 );
+}
+
+=export_function C<weak_ref>
+
+returns C<('weak_ref',1)>
+
+=cut
+
+sub weak_ref() {
+ return ( 'weak_ref', 1 );
+}
+
+=export_function C<coerce>
+
+returns C<('coerce',1)>
+
+B<WARNING:> Conflict with L<MooseX::Types|MooseX::Types> and L<Moose::Util::TypeConstraints|Moose::Util::TypeConstraints>, see L</CONFLICTS>.
+
+=cut
+
+sub coerce() {
+ return ( 'coerce', 1 );
+}
+
+=export_function C<auto_deref>
+
+returns C<('auto_deref',1)>
+
+=cut
+
+sub auto_deref() {
+ return ( 'auto_deref', 1 );
+}
+1;
+
=head1 SYNOPSIS
L<Moose|Moose> C<has> syntax is generally fine, but sometimes one gets bothered with
@@ -122,20 +227,6 @@ Or even
lazy_build,
);
-=cut
-
-use Carp ();
-use Sub::Exporter::Progressive (
- -setup => {
- exports => [ 'ro', 'rw', 'required', 'lazy', 'lazy_build', 'coerce', 'weak_ref', 'auto_deref', 'bare', ],
- groups => {
- isattrs => [ 'ro', 'rw', 'bare', ],
- attrs => [ 'required', 'lazy', 'lazy_build', 'coerce', 'weak_ref', 'auto_deref', ],
- default => [ 'ro', 'rw', 'bare', 'required', 'lazy', 'lazy_build', 'coerce', 'weak_ref', 'auto_deref', ],
- },
- },
-);
-
=export_group C<:default>
Since 0.0300, this exports all our syntax, the same as C<:attrs> C<:isattrs>.
@@ -177,101 +268,6 @@ B<DEPRECATED>, just use L</:default> or do
use MooseX::Has::Sugar;
-=cut
-
-=export_function C<bare>
-
-returns C<('is','bare')>
-
-=cut
-
-sub bare() {
- return ( 'is', 'bare' );
-}
-
-=export_function C<ro>
-
-returns C<('is','ro')>
-
-=cut
-
-sub ro() {
- return ( 'is', 'ro' );
-}
-
-=export_function C<rw>
-
-returns C<('is','rw')>
-
-=cut
-
-sub rw() {
- return ( 'is', 'rw' );
-}
-
-=export_function C<required>
-
-returns C<('required',1)>
-
-=cut
-
-sub required() {
- return ( 'required', 1 );
-}
-
-=export_function C<lazy>
-
-returns C<('lazy',1)>
-
-=cut
-
-sub lazy() {
- return ( 'lazy', 1 );
-}
-
-=export_function C<lazy_build>
-
-returns C<('lazy_build',1)>
-
-=cut
-
-sub lazy_build() {
- return ( 'lazy_build', 1 );
-}
-
-=export_function C<weak_ref>
-
-returns C<('weak_ref',1)>
-
-=cut
-
-sub weak_ref() {
- return ( 'weak_ref', 1 );
-}
-
-=export_function C<coerce>
-
-returns C<('coerce',1)>
-
-B<WARNING:> Conflict with L<MooseX::Types|MooseX::Types> and L<Moose::Util::TypeConstraints|Moose::Util::TypeConstraints>, see L</CONFLICTS>.
-
-=cut
-
-sub coerce() {
- return ( 'coerce', 1 );
-}
-
-=export_function C<auto_deref>
-
-returns C<('auto_deref',1)>
-
-=cut
-
-sub auto_deref() {
- return ( 'auto_deref', 1 );
-}
-1;
-
=head1 CONFLICTS
=head2 MooseX::Has::Sugar::Minimal
diff --git a/lib/MooseX/Has/Sugar/Minimal.pm b/lib/MooseX/Has/Sugar/Minimal.pm
index 4008a2e..995e37d 100644
--- a/lib/MooseX/Has/Sugar/Minimal.pm
+++ b/lib/MooseX/Has/Sugar/Minimal.pm
@@ -18,29 +18,6 @@ use Sub::Exporter::Progressive -setup => {
},
};
-=head1 SYNOPSIS
-
-This is a legacy variant of L<Sugar|MooseX::Has::Sugar> which only exports C<ro>
-and C<rw> functions, the way L<MooseX::Has::Sugar|MooseX::Has::Sugar> used to with C<:is>;
-
- use MooseX::Types::Moose qw( Str );
- use MooseX::Has::Sugar::Minimal;
-
- has foo => (
- isa => Str,
- is => ro,
- required => 1,
- );
- has bar => (
- isa => Str,
- is => rw,
- lazy_build => 1,
- );
-
-All functions are exported by L<The Sub::Exporter Module|Sub::Exporter>.
-
-=cut
-
=export_group C<:default>
Exports L</:is>
@@ -83,6 +60,27 @@ sub rw() {
1;
+=head1 SYNOPSIS
+
+This is a legacy variant of L<Sugar|MooseX::Has::Sugar> which only exports C<ro>
+and C<rw> functions, the way L<MooseX::Has::Sugar|MooseX::Has::Sugar> used to with C<:is>;
+
+ use MooseX::Types::Moose qw( Str );
+ use MooseX::Has::Sugar::Minimal;
+
+ has foo => (
+ isa => Str,
+ is => ro,
+ required => 1,
+ );
+ has bar => (
+ isa => Str,
+ is => rw,
+ lazy_build => 1,
+ );
+
+All functions are exported by L<The Sub::Exporter Module|Sub::Exporter>.
+
=head1 CONFLICTS
=head2 MooseX::Has::Sugar
diff --git a/lib/MooseX/Has/Sugar/Saccharin.pm b/lib/MooseX/Has/Sugar/Saccharin.pm
index aedf56a..c6dc652 100644
--- a/lib/MooseX/Has/Sugar/Saccharin.pm
+++ b/lib/MooseX/Has/Sugar/Saccharin.pm
@@ -10,19 +10,6 @@ our $VERSION = '1.000004';
# AUTHORITY
-=head1 SYNOPSIS
-
-This is a highly experimental sugaring module. No Guarantees of stability.
-
- use MooseX::Types::Moose qw( :all );
- has name => rw Str, default { 1 };
- has suffix => required rw Str;
- has 'suffix', required rw Str;
-
-Your choice.
-
-=cut
-
use Carp ();
use Sub::Exporter::Progressive (
-setup => {
@@ -47,8 +34,6 @@ L</bare>, L</default>, L</init_arg>, L</predicate>, L</clearer>, L</builder>, L<
=back
-=cut
-
=export_function C<bare>
=export_function C<bare> C<$Type>
@@ -289,6 +274,17 @@ sub trigger(&) {
}
1;
+=head1 SYNOPSIS
+
+This is a highly experimental sugaring module. No Guarantees of stability.
+
+ use MooseX::Types::Moose qw( :all );
+ has name => rw Str, default { 1 };
+ has suffix => required rw Str;
+ has 'suffix', required rw Str;
+
+Your choice.
+
=head1 CONFLICTS
=head2 MooseX::Has::Sugar
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmoosex-has-sugar-perl.git
More information about the Pkg-perl-cvs-commits
mailing list