r39667 - in /branches/upstream/libmoosex-has-sugar-perl/current: ./ lib/MooseX/Has/ lib/MooseX/Has/Sugar/ t/ t/04_values/ t/05_is/ t/06_attr_required/ t/07_attr_lazy_build/ t/08_saccharin/ t/09_saccharin/ t/lib/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Fri Jul 10 19:18:49 UTC 2009
Author: jawnsy-guest
Date: Fri Jul 10 19:18:41 2009
New Revision: 39667
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39667
Log:
[svn-upgrade] Integrating new upstream version, libmoosex-has-sugar-perl (0.0404)
Added:
branches/upstream/libmoosex-has-sugar-perl/current/lib/MooseX/Has/Sugar/Saccharin.pm
branches/upstream/libmoosex-has-sugar-perl/current/t/08_saccharin/
branches/upstream/libmoosex-has-sugar-perl/current/t/08_saccharin.t
branches/upstream/libmoosex-has-sugar-perl/current/t/08_saccharin/TestPackage.pm
branches/upstream/libmoosex-has-sugar-perl/current/t/09_saccharin/
branches/upstream/libmoosex-has-sugar-perl/current/t/09_saccharin.t
branches/upstream/libmoosex-has-sugar-perl/current/t/09_saccharin/TestPackage.pm
branches/upstream/libmoosex-has-sugar-perl/current/t/author-01.whitespace.t
branches/upstream/libmoosex-has-sugar-perl/current/t/lib/
branches/upstream/libmoosex-has-sugar-perl/current/t/lib/TestClean.pm
Modified:
branches/upstream/libmoosex-has-sugar-perl/current/Build.PL
branches/upstream/libmoosex-has-sugar-perl/current/Changes
branches/upstream/libmoosex-has-sugar-perl/current/MANIFEST
branches/upstream/libmoosex-has-sugar-perl/current/META.json
branches/upstream/libmoosex-has-sugar-perl/current/META.yml
branches/upstream/libmoosex-has-sugar-perl/current/Makefile.PL
branches/upstream/libmoosex-has-sugar-perl/current/README
branches/upstream/libmoosex-has-sugar-perl/current/lib/MooseX/Has/Sugar.pm
branches/upstream/libmoosex-has-sugar-perl/current/lib/MooseX/Has/Sugar/Minimal.pm
branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/AMinimal.pm
branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/BDeclare.pm
branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/CDeclareRo.pm
branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/DEverything.pm
branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/EMixed.pm
branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/TestCant.pm
branches/upstream/libmoosex-has-sugar-perl/current/t/05_is/TestPackage.pm
branches/upstream/libmoosex-has-sugar-perl/current/t/06_attr_required/TestPackage.pm
branches/upstream/libmoosex-has-sugar-perl/current/t/07_attr_lazy_build/TestPackage.pm
branches/upstream/libmoosex-has-sugar-perl/current/t/author-pod.t
Modified: branches/upstream/libmoosex-has-sugar-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/Build.PL?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/Build.PL (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/Build.PL Fri Jul 10 19:18:41 2009
@@ -13,6 +13,7 @@
"Kent\ Fredric\ \<kentnl\ at\ cpan\.org\>",
],
requires => {
+ "MooseX::Types::Moose" => '0',
"namespace::autoclean" => '0',
"Test::Exception" => '0',
"Sub::Exporter" => '0',
Modified: branches/upstream/libmoosex-has-sugar-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/Changes?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/Changes (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/Changes Fri Jul 10 19:18:41 2009
@@ -1,4 +1,7 @@
Revision history for MooseX-Has-Sugar
+
+0.0404 2009-07-06 03:34:10 UTC
+ Added Saccharin, experimental sugars.
0.0403 2009-06-30 13:56:07 UTC
Using Dist::Zilla's handy author-tests feature
Modified: branches/upstream/libmoosex-has-sugar-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/MANIFEST?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/MANIFEST (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/MANIFEST Fri Jul 10 19:18:41 2009
@@ -8,6 +8,7 @@
README
lib/MooseX/Has/Sugar.pm
lib/MooseX/Has/Sugar/Minimal.pm
+lib/MooseX/Has/Sugar/Saccharin.pm
t/00-load.t
t/04_values.t
t/04_values/AMinimal.pm
@@ -22,5 +23,11 @@
t/06_attr_required/TestPackage.pm
t/07_attr_lazy_build.t
t/07_attr_lazy_build/TestPackage.pm
+t/08_saccharin.t
+t/08_saccharin/TestPackage.pm
+t/09_saccharin.t
+t/09_saccharin/TestPackage.pm
+t/author-01.whitespace.t
t/author-boilerplate.t
-t/author-pod.t
+t/author-pod.t
+t/lib/TestClean.pm
Modified: branches/upstream/libmoosex-has-sugar-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/META.json?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/META.json (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/META.json Fri Jul 10 19:18:41 2009
@@ -7,13 +7,14 @@
"url" : "http://module-build.sourceforge.net/META-spec-v1.4.html"
},
"generated_by" : "Dist::Zilla::Plugin::MetaJSON version 1.091610",
- "version" : "0.0403",
+ "version" : "0.0404",
"name" : "MooseX-Has-Sugar",
"author" : [
"Kent Fredric <kentnl at cpan.org>"
],
"license" : "perl",
"requires" : {
+ "MooseX::Types::Moose" : "0",
"namespace::autoclean" : "0",
"Test::Exception" : "0",
"Sub::Exporter" : "0",
Modified: branches/upstream/libmoosex-has-sugar-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/META.yml?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/META.yml (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/META.yml Fri Jul 10 19:18:41 2009
@@ -12,6 +12,7 @@
Carp: 0
Find::Lib: 0
Moose: 0.84
+ MooseX::Types::Moose: 0
Sub::Exporter: 0
Test::Exception: 0
Test::More: 0
@@ -19,4 +20,4 @@
namespace::autoclean: 0
resources:
repository: git://github.com/kentfredric/MooseX-Has-Sugar.git
-version: 0.0403
+version: 0.0404
Modified: branches/upstream/libmoosex-has-sugar-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/Makefile.PL?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/Makefile.PL (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/Makefile.PL Fri Jul 10 19:18:41 2009
@@ -9,10 +9,11 @@
NAME => 'MooseX::Has::Sugar',
AUTHOR => 'Kent\ Fredric\ \<kentnl\ at\ cpan\.org\>',
ABSTRACT => 'Sugar\ Syntax\ for\ moose\ \'has\'\ fields',
- VERSION => '0.0403',
+ VERSION => '0.0404',
EXE_FILES => [ qw() ],
(eval { ExtUtils::MakeMaker->VERSION(6.21) } ? (LICENSE => 'perl') : ()),
PREREQ_PM => {
+ "MooseX::Types::Moose" => '0',
"namespace::autoclean" => '0',
"Test::Exception" => '0',
"Sub::Exporter" => '0',
Modified: branches/upstream/libmoosex-has-sugar-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/README?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/README (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/README Fri Jul 10 19:18:41 2009
@@ -2,7 +2,7 @@
MooseX::Has::Sugar - Sugar Syntax for moose 'has' fields
VERSION
- version 0.0403
+ version 0.0404
SYNOPSIS
Moose "has" syntax is generally fine, but sometimes one gets bothered
Modified: branches/upstream/libmoosex-has-sugar-perl/current/lib/MooseX/Has/Sugar.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/lib/MooseX/Has/Sugar.pm?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/lib/MooseX/Has/Sugar.pm (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/lib/MooseX/Has/Sugar.pm Fri Jul 10 19:18:41 2009
@@ -1,5 +1,5 @@
package MooseX::Has::Sugar;
-our $VERSION = '0.0403';
+our $VERSION = '0.0404';
# ABSTRACT: Sugar Syntax for moose 'has' fields
@@ -80,7 +80,7 @@
=head1 VERSION
-version 0.0403
+version 0.0404
=head1 SYNOPSIS
@@ -216,7 +216,7 @@
=item auto_deref
-=back
+=back
=head1 EXPORT GROUPS
@@ -259,7 +259,7 @@
This is a shorthand for qw( :isattrs :attrs )
-=back
+=back
=head1 FUNCTIONS
@@ -304,7 +304,7 @@
returns C<('auto_deref',1)>
-=back
+=back
=head1 BUGS
@@ -341,11 +341,9 @@
L<http://search.cpan.org/dist/MooseX-Has-Sugar/>
-=back
+=back
=head1 ACKNOWLEDGEMENTS
-
-
=head1 AUTHOR
@@ -358,6 +356,6 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
-
-
+=cut
+
+
Modified: branches/upstream/libmoosex-has-sugar-perl/current/lib/MooseX/Has/Sugar/Minimal.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/lib/MooseX/Has/Sugar/Minimal.pm?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/lib/MooseX/Has/Sugar/Minimal.pm (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/lib/MooseX/Has/Sugar/Minimal.pm Fri Jul 10 19:18:41 2009
@@ -1,5 +1,5 @@
package MooseX::Has::Sugar::Minimal;
-our $VERSION = '0.0403';
+our $VERSION = '0.0404';
# ABSTRACT: Less Sugary Syntax for moose 'has' fields
@@ -44,7 +44,7 @@
=head1 VERSION
-version 0.0403
+version 0.0404
=head1 SYNOPSIS
@@ -75,7 +75,7 @@
=item bare
-=back
+=back
=head1 EXPORT GROUPS
@@ -89,7 +89,7 @@
Exports C<ro> and C<rw> and C<bare>
-=back
+=back
=head1 CONFLICTS
@@ -131,7 +131,7 @@
returns C<('bare')>
-=back
+=back
=head1 BUGS
@@ -169,11 +169,9 @@
L<http://search.cpan.org/dist/MooseX-Has-Sugar/>
-=back
+=back
=head1 ACKNOWLEDGEMENTS
-
-
=head1 AUTHOR
@@ -186,7 +184,7 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
Added: branches/upstream/libmoosex-has-sugar-perl/current/lib/MooseX/Has/Sugar/Saccharin.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/lib/MooseX/Has/Sugar/Saccharin.pm?rev=39667&op=file
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/lib/MooseX/Has/Sugar/Saccharin.pm (added)
+++ branches/upstream/libmoosex-has-sugar-perl/current/lib/MooseX/Has/Sugar/Saccharin.pm Fri Jul 10 19:18:41 2009
@@ -1,0 +1,255 @@
+package MooseX::Has::Sugar::Saccharin;
+our $VERSION = '0.0404';
+
+
+# ABSTRACT: Experimental sweetness
+
+use warnings;
+use strict;
+
+
+use Carp ();
+use Sub::Exporter ();
+
+Sub::Exporter::setup_exporter(
+ {
+ exports => [
+ 'ro', 'rw', 'required', 'lazy', 'lazy_build', 'coerce', 'weak_ref', 'auto_deref',
+ 'bare', 'default', 'init_arg', 'predicate', 'clearer', 'builder', 'trigger',
+ ],
+ groups => { default => ['-all'], }
+ }
+);
+
+
+sub bare($) {
+ return ( 'is', 'bare', 'isa', shift, );
+}
+
+
+sub ro($) {
+ return ( 'is', 'ro', 'isa', shift, );
+}
+
+
+sub rw($) {
+ return ( 'is', 'rw', 'isa', shift, );
+}
+
+
+sub required(@) {
+ return ( 'required', 1, @_ );
+}
+
+
+sub lazy(@) {
+ return ( 'lazy', 1, @_ );
+}
+
+
+sub lazy_build(@) {
+ return ( 'lazy_build', 1, @_ );
+}
+
+
+sub weak_ref(@) {
+ return ( 'weak_ref', 1, @_ );
+}
+
+
+sub coerce(@) {
+ return ( 'coerce', 1, @_ );
+}
+
+
+sub auto_deref(@) {
+ return ( 'auto_deref', 1, @_ );
+}
+
+
+sub builder($) {
+ return ( 'builder', shift );
+}
+
+
+sub predicate($) {
+ return ( 'predicate', shift );
+}
+
+
+sub clearer($) {
+ return ( 'clearer', shift );
+}
+
+
+sub init_arg($) {
+ return ( 'init_arg', shift );
+}
+
+
+sub default(&) {
+ my $code = shift;
+ return (
+ 'default',
+ sub {
+ my $self = $_[0];
+ local $_ = $self;
+ return $code->();
+ }
+ );
+}
+
+
+sub trigger(&) {
+ my $code = shift;
+ return (
+ 'trigger',
+ sub {
+ my $self = $_[0];
+ local $_ = $self;
+ return $code->();
+ }
+ );
+}
+1;
+
+
+__END__
+
+=pod
+
+=head1 NAME
+
+MooseX::Has::Sugar::Saccharin - Experimental sweetness
+
+=head1 VERSION
+
+version 0.0404
+
+=head1 SYNOPSIS
+
+This is a highly experimental sugaring module. No Guarantees of stability.
+
+ has name => rw Str, default { 1 };
+ has suffix => required rw Str;
+ has 'suffix', required rw Str;
+
+Your choice.
+
+=head1 FUNCTIONS
+
+=head2 bare $Type
+
+ bare Str
+
+equivalent to this
+
+ is => 'bare', isa => Str
+
+=head2 ro $Type
+
+ ro Str
+
+equivalent to this
+
+ is => 'ro', isa => Str,
+
+=head2 rw $Type
+
+ rw Str
+
+equivalent to this
+
+ is => 'rw', isa => Str
+
+=head2 required @rest
+
+this
+
+ required rw Str
+
+is equivalent to this
+
+ required => 1, is => 'rw', isa => Str,
+
+this
+
+ rw Str, required
+
+is equivalent to this
+
+ is => 'rw', isa => Str , required => 1
+
+=head2 lazy @rest
+
+like C<( lazy => 1 , @rest )>
+
+=head2 lazy_build @rest
+
+like C<( lazy_build => 1, @rest )>
+
+=head2 weak_ref @rest
+
+like C<( weak_ref => 1, @rest )>
+
+=head2 coerce @rest
+
+like C<( coerce => 1, @rest )>
+
+=head2 auto_deref @rest
+
+like C<( auto_deref => 1, @rest )>
+
+=head2 builder $buildername
+
+ie:
+
+ required rw Str, builder '_build_foo'
+
+is like
+
+ builder => '_build_foo'
+
+=head2 predicate $predicatename
+
+see builder
+
+=head2 clearer $clearername
+
+see builder
+
+=head2 init_arg $argname
+
+see builder
+
+=head2 default { $code }
+
+Examples:
+
+ default { 1 }
+ default { { } }
+ default { [ ] }
+ default { $_->otherfield }
+
+$_ is localised as the same value as $_[0] for convenience ( usually $self )
+
+=head2 trigger { $code }
+
+Works exactly like default.
+
+=head1 ACKNOWLEDGEMENTS
+
+=head1 AUTHOR
+
+ Kent Fredric <kentnl at cpan.org>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2009 by Kent Fredric.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
+
Modified: branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/AMinimal.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/AMinimal.pm?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/AMinimal.pm (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/AMinimal.pm Fri Jul 10 19:18:41 2009
@@ -1,5 +1,5 @@
package AMinimal;
-our $VERSION = '0.0403';
+our $VERSION = '0.0404';
# $Id:$
Modified: branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/BDeclare.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/BDeclare.pm?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/BDeclare.pm (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/BDeclare.pm Fri Jul 10 19:18:41 2009
@@ -1,5 +1,5 @@
package BDeclare;
-our $VERSION = '0.0403';
+our $VERSION = '0.0404';
# $Id:$
Modified: branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/CDeclareRo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/CDeclareRo.pm?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/CDeclareRo.pm (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/CDeclareRo.pm Fri Jul 10 19:18:41 2009
@@ -1,5 +1,5 @@
package CDeclareRo;
-our $VERSION = '0.0403';
+our $VERSION = '0.0404';
# $Id:$
Modified: branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/DEverything.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/DEverything.pm?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/DEverything.pm (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/DEverything.pm Fri Jul 10 19:18:41 2009
@@ -1,5 +1,5 @@
package DEverything;
-our $VERSION = '0.0403';
+our $VERSION = '0.0404';
# $Id:$
Modified: branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/EMixed.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/EMixed.pm?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/EMixed.pm (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/EMixed.pm Fri Jul 10 19:18:41 2009
@@ -1,5 +1,5 @@
package EMixed;
-our $VERSION = '0.0403';
+our $VERSION = '0.0404';
# $Id:$
Modified: branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/TestCant.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/TestCant.pm?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/TestCant.pm (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/t/04_values/TestCant.pm Fri Jul 10 19:18:41 2009
@@ -1,5 +1,5 @@
package TestCant;
-our $VERSION = '0.0403';
+our $VERSION = '0.0404';
# $Id:$
Modified: branches/upstream/libmoosex-has-sugar-perl/current/t/05_is/TestPackage.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/t/05_is/TestPackage.pm?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/t/05_is/TestPackage.pm (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/t/05_is/TestPackage.pm Fri Jul 10 19:18:41 2009
@@ -1,5 +1,5 @@
package TestPackage;
-our $VERSION = '0.0403';
+our $VERSION = '0.0404';
# $Id:$
Modified: branches/upstream/libmoosex-has-sugar-perl/current/t/06_attr_required/TestPackage.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/t/06_attr_required/TestPackage.pm?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/t/06_attr_required/TestPackage.pm (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/t/06_attr_required/TestPackage.pm Fri Jul 10 19:18:41 2009
@@ -1,5 +1,5 @@
package TestPackage;
-our $VERSION = '0.0403';
+our $VERSION = '0.0404';
# $Id:$
Modified: branches/upstream/libmoosex-has-sugar-perl/current/t/07_attr_lazy_build/TestPackage.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/t/07_attr_lazy_build/TestPackage.pm?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/t/07_attr_lazy_build/TestPackage.pm (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/t/07_attr_lazy_build/TestPackage.pm Fri Jul 10 19:18:41 2009
@@ -1,5 +1,5 @@
package TestPackage;
-our $VERSION = '0.0403';
+our $VERSION = '0.0404';
# $Id:$
Added: branches/upstream/libmoosex-has-sugar-perl/current/t/08_saccharin.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/t/08_saccharin.t?rev=39667&op=file
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/t/08_saccharin.t (added)
+++ branches/upstream/libmoosex-has-sugar-perl/current/t/08_saccharin.t Fri Jul 10 19:18:41 2009
@@ -1,0 +1,29 @@
+
+use strict;
+use warnings;
+
+use Test::More tests => 7; # last test to print
+use Test::Exception;
+use Find::Lib './08_saccharin';
+
+use TestPackage;
+
+sub cr {
+ return TestPackage->new();
+}
+
+pass("Syntax Compiles");
+
+lives_ok( sub { cr() }, 'Construction still works' );
+
+my $i = cr();
+
+is( $i->roattr, 'y', 'Builders Still Trigger 1' );
+is( $i->rwattr, 'y', 'Builders Still Trigger 2' );
+
+dies_ok( sub { $i->roattr('x') }, "RO works still" );
+
+lives_ok( sub { $i->rwattr('x') }, 'RW works still' );
+
+is( $i->rwattr(), 'x', "RW Works as expected" );
+
Added: branches/upstream/libmoosex-has-sugar-perl/current/t/08_saccharin/TestPackage.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/t/08_saccharin/TestPackage.pm?rev=39667&op=file
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/t/08_saccharin/TestPackage.pm (added)
+++ branches/upstream/libmoosex-has-sugar-perl/current/t/08_saccharin/TestPackage.pm Fri Jul 10 19:18:41 2009
@@ -1,0 +1,29 @@
+package TestPackage;
+our $VERSION = '0.0404';
+
+
+# $Id:$
+use strict;
+use warnings;
+use Moose;
+use namespace::autoclean;
+
+use MooseX::Has::Sugar::Saccharin;
+use MooseX::Types::Moose (':all');
+
+has roattr => lazy_build ro Str;
+
+has rwattr => lazy_build rw Str;
+
+sub _build_rwattr {
+ return 'y';
+}
+
+sub _build_roattr {
+ return 'y';
+}
+
+__PACKAGE__->meta->make_immutable;
+
+1;
+
Added: branches/upstream/libmoosex-has-sugar-perl/current/t/09_saccharin.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/t/09_saccharin.t?rev=39667&op=file
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/t/09_saccharin.t (added)
+++ branches/upstream/libmoosex-has-sugar-perl/current/t/09_saccharin.t Fri Jul 10 19:18:41 2009
@@ -1,0 +1,11 @@
+use strict;
+use warnings;
+
+use Test::More tests => 3; # last test to print
+use Find::Lib './09_saccharin';
+use TestPackage;
+
+is_deeply( TestPackage->Alpha->{orig}, TestPackage->Alpha->{mx}, 'Basic Use Case', );
+is_deeply( TestPackage->Beta->{orig}, TestPackage->Beta->{mx}, 'Order Invert', );
+is_deeply( TestPackage->Gamma->{orig}->{default}->(), TestPackage->Gamma->{mx}->{default}->(), 'Subs', );
+
Added: branches/upstream/libmoosex-has-sugar-perl/current/t/09_saccharin/TestPackage.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/t/09_saccharin/TestPackage.pm?rev=39667&op=file
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/t/09_saccharin/TestPackage.pm (added)
+++ branches/upstream/libmoosex-has-sugar-perl/current/t/09_saccharin/TestPackage.pm Fri Jul 10 19:18:41 2009
@@ -1,0 +1,41 @@
+package TestPackage;
+our $VERSION = '0.0404';
+
+
+# $Id:$
+use strict;
+use warnings;
+use Moose;
+use MooseX::Types::Moose (':all');
+use MooseX::Has::Sugar::Saccharin;
+use namespace::autoclean;
+
+sub Alpha {
+ return {
+ orig => { 'isa' => Str, 'required' => 1, 'is' => 'rw' },
+ mx => { required rw Str },
+ };
+}
+
+sub Beta {
+ return {
+ orig => { 'isa' => Str, 'required' => 1, 'is' => 'rw' },
+ mx => { rw Str, required },
+ };
+}
+
+sub Gamma {
+ return {
+ orig => {
+ 'isa' => Str,
+ 'is' => 'rw',
+ default => sub {
+ return 1;
+ }
+ },
+ mx => { rw Str, default { 1 } },
+ };
+}
+
+1;
+
Added: branches/upstream/libmoosex-has-sugar-perl/current/t/author-01.whitespace.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/t/author-01.whitespace.t?rev=39667&op=file
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/t/author-01.whitespace.t (added)
+++ branches/upstream/libmoosex-has-sugar-perl/current/t/author-01.whitespace.t Fri Jul 10 19:18:41 2009
@@ -1,0 +1,36 @@
+
+BEGIN {
+ unless ($ENV{AUTHOR_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for testing by the author');
+ }
+}
+
+#
+# This test checks all files in the dist of interest for excess whitespace,
+# or bad whitespace
+#
+
+use strict;
+use warnings;
+
+use File::Find::Rule;
+use File::Find::Rule::Perl;
+use Path::Class qw( file dir );
+use FindBin;
+use Moose::Autobox;
+
+use Test::More qw( no_plan );
+use lib "$FindBin::Bin/lib";
+use TestClean;
+
+my ($dir) = ( dir($FindBin::Bin)->parent );
+my (@subdirs) = ( map { $dir->subdir($_) } qw( lib t ) );
+my (@files);
+push @files, File::Find::Rule->perl_file->in(@subdirs);
+push @files, File::Find::Rule->name("*.ini")->in("$dir");
+
+for (@files) {
+ my $fn = file($_)->relative($dir)->stringify;
+ is_clean($fn);
+}
Modified: branches/upstream/libmoosex-has-sugar-perl/current/t/author-pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/t/author-pod.t?rev=39667&op=diff
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/t/author-pod.t (original)
+++ branches/upstream/libmoosex-has-sugar-perl/current/t/author-pod.t Fri Jul 10 19:18:41 2009
@@ -13,8 +13,6 @@
use Test::More;
# Ensure a recent version of Test::Pod
-my $min_tp = 1.22;
-eval "use Test::Pod $min_tp";
-plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
+use Test::Pod 1.22;
all_pod_files_ok();
Added: branches/upstream/libmoosex-has-sugar-perl/current/t/lib/TestClean.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-has-sugar-perl/current/t/lib/TestClean.pm?rev=39667&op=file
==============================================================================
--- branches/upstream/libmoosex-has-sugar-perl/current/t/lib/TestClean.pm (added)
+++ branches/upstream/libmoosex-has-sugar-perl/current/t/lib/TestClean.pm Fri Jul 10 19:18:41 2009
@@ -1,0 +1,57 @@
+package TestClean;
+our $VERSION = '0.0404';
+
+
+# $Id:$
+my $CLASS = __PACKAGE__;
+use base 'Test::Builder::Module';
+ at EXPORT = qw( is_clean );
+
+sub pp {
+ require Data::Dumper;
+ local $Data::Dumper::Terse = 1;
+ local $Data::Dumper::Useqq = 1;
+ local $Data::Dumper::Indent = 0;
+ return Data::Dumper::Dumper(shift);
+}
+
+sub is_clean($;$) {
+ my $file = shift;
+ my $msg = shift;
+ $msg ||= "Cleanlyness for $file";
+ my $tb = $CLASS->builder;
+ my $fh;
+ my $o;
+ if ( not open $fh, '<', $file ) {
+ my $o = $tb->ok( 0, $msg );
+ $tb->diag("Loading $file Failed");
+ return $o;
+ }
+ while ( my $line = <$fh> ) {
+
+ # Tailing Whitespace is pesky
+ if ( $line =~ qr/\h$/m ) {
+ $o = $tb->ok( 0, $msg ) unless $o;
+ $tb->diag( "\n\n\\h found on end of line $. in $file\n" . pp($line) . "\n" );
+ }
+
+ # Tabs are teh satan.
+ if ( $line =~ qr/\t/m ) {
+ $o = $tb->ok( 0, $msg ) unless $o;
+ $tb->diag( "\\t found in line $. in $file\n" . pp($line) . "\n" );
+ }
+
+ # Perltidyness in teh comments
+ if ( $line =~ qr/[)][{]/ ) {
+ $o = $tb->ok( 0, $msg ) unless $o;
+ $tb->diag( ')' . "{ found in line $. in $file\n" . pp($line) . "\n" );
+ }
+ }
+ close $fh;
+ if ($o) {
+ return $o;
+ }
+ return $tb->ok( 1, $msg );
+}
+
+1;
More information about the Pkg-perl-cvs-commits
mailing list