r60370 - in /branches/upstream/libmoosex-strictconstructor-perl/current: ./ lib/MooseX/ lib/MooseX/StrictConstructor/Role/ lib/MooseX/StrictConstructor/Role/Meta/Method/ t/ xt/
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Sun Jul 18 08:20:55 UTC 2010
Author: ansgar-guest
Date: Sun Jul 18 08:20:03 2010
New Revision: 60370
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60370
Log:
[svn-upgrade] new version libmoosex-strictconstructor-perl (0.10)
Added:
branches/upstream/libmoosex-strictconstructor-perl/current/t/instance.t
branches/upstream/libmoosex-strictconstructor-perl/current/t/release-pod-spell.t
Removed:
branches/upstream/libmoosex-strictconstructor-perl/current/xt/
Modified:
branches/upstream/libmoosex-strictconstructor-perl/current/Changes
branches/upstream/libmoosex-strictconstructor-perl/current/MANIFEST
branches/upstream/libmoosex-strictconstructor-perl/current/META.json
branches/upstream/libmoosex-strictconstructor-perl/current/META.yml
branches/upstream/libmoosex-strictconstructor-perl/current/Makefile.PL
branches/upstream/libmoosex-strictconstructor-perl/current/README
branches/upstream/libmoosex-strictconstructor-perl/current/SIGNATURE
branches/upstream/libmoosex-strictconstructor-perl/current/dist.ini
branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor.pm
branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Object.pm
Modified: branches/upstream/libmoosex-strictconstructor-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/Changes?rev=60370&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/Changes (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/Changes Sun Jul 18 08:20:03 2010
@@ -1,3 +1,11 @@
+0.10 2010-07-16
+
+- Ignore __INSTANCE__ when passed to the constructor. Patch by Jesse
+ Luehrs. RT #59236.
+
+- All init args are quoted in the inlined constructor.
+
+
0.09 2010-07-14
- Use modern Moose APIs, to avoid warnings with the next Moose release.
Modified: branches/upstream/libmoosex-strictconstructor-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/MANIFEST?rev=60370&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/MANIFEST (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/MANIFEST Sun Jul 18 08:20:03 2010
@@ -12,12 +12,10 @@
lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
lib/MooseX/StrictConstructor/Role/Object.pm
t/basic.t
+t/instance.t
t/release-eol.t
t/release-kwalitee.t
t/release-no-tabs.t
t/release-pod-coverage.t
+t/release-pod-spell.t
t/release-pod-syntax.t
-xt/kwalitee.t
-xt/pod-coverage.t
-xt/pod-spell.t
-xt/pod.t
Modified: branches/upstream/libmoosex-strictconstructor-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/META.json?rev=60370&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/META.json (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/META.json Sun Jul 18 08:20:03 2010
@@ -42,6 +42,6 @@
"web" : "http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo/MooseX-StrictConstructor.git;a=summary"
}
},
- "version" : "0.09"
+ "version" : "0.10"
}
Modified: branches/upstream/libmoosex-strictconstructor-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/META.yml?rev=60370&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/META.yml (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/META.yml Sun Jul 18 08:20:03 2010
@@ -18,4 +18,4 @@
resources:
bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist={{MooseX-StrictConstructor}}
repository: git://git.moose.perl.org/MooseX-StrictConstructor.git
-version: 0.09
+version: 0.10
Modified: branches/upstream/libmoosex-strictconstructor-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/Makefile.PL?rev=60370&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/Makefile.PL (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/Makefile.PL Sun Jul 18 08:20:03 2010
@@ -24,7 +24,7 @@
'PREREQ_PM' => {
'Moose' => '0.94'
},
- 'VERSION' => '0.09',
+ 'VERSION' => '0.10',
'test' => {
'TESTS' => 't/*.t'
}
Modified: branches/upstream/libmoosex-strictconstructor-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/README?rev=60370&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/README (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/README Sun Jul 18 08:20:03 2010
@@ -1,7 +1,7 @@
This archive contains the distribution MooseX-StrictConstructor,
-version 0.09:
+version 0.10:
Make your object constructors blow up on unknown attributes
Modified: branches/upstream/libmoosex-strictconstructor-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/SIGNATURE?rev=60370&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/SIGNATURE (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/SIGNATURE Sun Jul 18 08:20:03 2010
@@ -14,32 +14,30 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 d99767948ef5257b805717e88720396c6fdf8192 Changes
+SHA1 cddb8b2accb30e7478f9bb1cc0fd1420b9f1259a Changes
SHA1 2209111d63837f5981fd58c67bfacef90015096b INSTALL
SHA1 23c628b4a8a36738405ccdacaeb912d2e727b4c0 LICENSE
-SHA1 abd955e610488063d3204eca3f5de090c952f0ae MANIFEST
-SHA1 e7bdf47e38c020d37c3244ef0efc4c7f14b0d80a META.json
-SHA1 987007cf2b0891d4060a5e5304e8c530d6dca300 META.yml
-SHA1 4571d168bca9e0eae2b2a3ff4f662605d4fdb14c Makefile.PL
-SHA1 cc80ab532a22e0e3374efbbfcbbf785bc1069584 README
-SHA1 318a99384cddac0eaaa1ee7a7011a9adc11594ef dist.ini
-SHA1 570e88531c84f07721f56ba1915ebbe2aa95b54c lib/MooseX/StrictConstructor.pm
-SHA1 0ef2a82a67244599ea8f138f9cab0b0a92df4bfe lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
-SHA1 1d24fa2f8e7b54ff7c79dc1cc562d5cebef50f76 lib/MooseX/StrictConstructor/Role/Object.pm
+SHA1 933db8871a9243326a000bda311e4feeb78b270d MANIFEST
+SHA1 c3fe0dccc22140a345b914a13c9a7d9ef66ea1f0 META.json
+SHA1 7d0be0dc206e20a327c07e3a37c4357846dd6587 META.yml
+SHA1 2865bf39daace4ffa5a66148bb74f92c280a1c41 Makefile.PL
+SHA1 1ef6ae8a0f41caddceabf4e4f556c99cbf9d981e README
+SHA1 3bb6c10029ca771c0c27d26e82330a4f5d65e01d dist.ini
+SHA1 6c72a92ba1c2902f186dda5b2be7eeb338f4683d lib/MooseX/StrictConstructor.pm
+SHA1 301b43fa8d6e30b2d10088117444d7485bd258b9 lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
+SHA1 4ca787ee5b89125cb8faffb9ce2b934dcfb4a124 lib/MooseX/StrictConstructor/Role/Object.pm
SHA1 d4aec4e090cf408f3546eac3f52b2f397ade2699 t/basic.t
+SHA1 08967270a332012eb2b6930bc44768d07e7cb8fa t/instance.t
SHA1 24b525e3c18f37f8022a01ec30de757cefb679ff t/release-eol.t
SHA1 961a1e2c92d836c8cad2d34b784cbc75345dec63 t/release-kwalitee.t
SHA1 455d1dd1867212a665ad5ea4126b572411de300c t/release-no-tabs.t
SHA1 9433c240fe590bc404ab68ff63984df763e347ed t/release-pod-coverage.t
+SHA1 48e2a1a1f3252d687ed5d54cb68109fb1466de7d t/release-pod-spell.t
SHA1 9775e90d40f094f3e5a23c695d6e6e436a2232c3 t/release-pod-syntax.t
-SHA1 437178b17e5942761ac30bb436dcac115e5adff8 xt/kwalitee.t
-SHA1 3ae97f5bf69263b855a2ae3442125e2d63ae2076 xt/pod-coverage.t
-SHA1 4b08f9d94477981964c015c99d84ed14b01dada5 xt/pod-spell.t
-SHA1 9bb24d755c9e2fbf5d9b7db34df15637ccd8e3f6 xt/pod.t
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (GNU/Linux)
-iEYEARECAAYFAkw+CB0ACgkQIgMCsV8qvRJcwgCdFnr5sb6YRr37qDjSnG7u5C3X
-1mkAn3naXOzutbG5PeDrbDQCTxFnljL6
-=t3hp
+iEYEARECAAYFAkxB1SYACgkQIgMCsV8qvRIGHgCeMarogmk+6Ll1m4aNOUpAjH/7
++/gAniacdDm0bE1ylM2iQSNZtJJDoSXV
+=qfPS
-----END PGP SIGNATURE-----
Modified: branches/upstream/libmoosex-strictconstructor-perl/current/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/dist.ini?rev=60370&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/dist.ini (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/dist.ini Sun Jul 18 08:20:03 2010
@@ -2,7 +2,7 @@
author = Dave Rolsky <autarch at urth.org>
copyright_year = 2010
-version = 0.09
+version = 0.10
[@Basic]
Modified: branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor.pm?rev=60370&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor.pm (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor.pm Sun Jul 18 08:20:03 2010
@@ -1,6 +1,6 @@
package MooseX::StrictConstructor;
BEGIN {
- $MooseX::StrictConstructor::VERSION = '0.09';
+ $MooseX::StrictConstructor::VERSION = '0.10';
}
use strict;
@@ -34,7 +34,7 @@
=head1 VERSION
-version 0.09
+version 0.10
=head1 SYNOPSIS
Modified: branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm?rev=60370&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm Sun Jul 18 08:20:03 2010
@@ -1,11 +1,12 @@
package MooseX::StrictConstructor::Role::Meta::Method::Constructor;
BEGIN {
- $MooseX::StrictConstructor::Role::Meta::Method::Constructor::VERSION = '0.09';
+ $MooseX::StrictConstructor::Role::Meta::Method::Constructor::VERSION = '0.10';
}
use strict;
use warnings;
+use B ();
use Carp ();
use Moose::Role;
@@ -18,7 +19,8 @@
$source .= ";\n" if $source;
my @attrs = (
- map {"$_ => 1,"}
+ "__INSTANCE__ => 1,",
+ map { B::perlstring($_) . ' => 1,' }
grep {defined}
map { $_->init_arg() } @{ $self->_attributes() }
);
@@ -52,15 +54,17 @@
=head1 VERSION
-version 0.09
+version 0.10
=head1 SYNOPSIS
- Moose::Util::MetaRole::apply_metaclass_roles
- ( for_class => $caller,
- constructor_class_roles =>
- ['MooseX::StrictConstructor::Role::Meta::Method::Constructor'],
- );
+ Moose::Util::MetaRole::apply_metaroles(
+ for_class => $caller,
+ class => {
+ constructor =>
+ ['MooseX::StrictConstructor::Role::Meta::Method::Constructor'],
+ },
+ );
=head1 DESCRIPTION
Modified: branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Object.pm?rev=60370&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Object.pm (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Object.pm Sun Jul 18 08:20:03 2010
@@ -1,6 +1,6 @@
package MooseX::StrictConstructor::Role::Object;
BEGIN {
- $MooseX::StrictConstructor::Role::Object::VERSION = '0.09';
+ $MooseX::StrictConstructor::Role::Object::VERSION = '0.10';
}
use strict;
@@ -13,6 +13,7 @@
my $params = shift;
my %attrs = (
+ __INSTANCE__ => 1,
map { $_ => 1 }
grep {defined}
map { $_->init_arg() } $self->meta()->get_all_attributes()
@@ -44,15 +45,15 @@
=head1 VERSION
-version 0.09
+version 0.10
=head1 SYNOPSIS
- Moose::Util::MetaRole::apply_base_class_roles
- ( for_class => $caller,
- roles =>
- [ 'MooseX::StrictConstructor::Role::Object' ],
- );
+ Moose::Util::MetaRole::apply_base_class_roles(
+ for_class => $caller,
+ roles =>
+ ['MooseX::StrictConstructor::Role::Object'],
+ );
=head1 DESCRIPTION
Added: branches/upstream/libmoosex-strictconstructor-perl/current/t/instance.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/t/instance.t?rev=60370&op=file
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/t/instance.t (added)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/t/instance.t Sun Jul 18 08:20:03 2010
@@ -1,0 +1,22 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Moose qw( with_immutable );
+
+{
+ package Foo;
+ use Moose;
+ use MooseX::StrictConstructor;
+}
+
+with_immutable {
+ eval { Foo->new( __INSTANCE__ => Foo->new ); };
+ ok( !$@, '__INSTANCE__ is ignored when passed to ->new' );
+
+ eval { Foo->meta->new_object( __INSTANCE__ => Foo->new ); };
+ ok( !$@, '__INSTANCE__ is ignored when passed to ->new_object' );
+}
+'Foo';
+
+done_testing();
Added: branches/upstream/libmoosex-strictconstructor-perl/current/t/release-pod-spell.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/t/release-pod-spell.t?rev=60370&op=file
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/t/release-pod-spell.t (added)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/t/release-pod-spell.t Sun Jul 18 08:20:03 2010
@@ -1,0 +1,35 @@
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate testing');
+ }
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+eval "use Test::Spelling";
+plan skip_all => "Test::Spelling required for testing POD coverage"
+ if $@;
+
+my @stopwords;
+for (<DATA>) {
+ chomp;
+ push @stopwords, $_
+ unless /\A (?: \# | \s* \z)/msx; # skip comments, whitespace
+}
+
+add_stopwords(@stopwords);
+set_spell_cmd('aspell list -l en');
+
+# This prevents a weird segfault from the aspell command - see
+# https://bugs.launchpad.net/ubuntu/+source/aspell/+bug/71322
+local $ENV{LC_ALL} = 'C';
+all_pod_files_spelling_ok();
+
+__DATA__
+PayPal
+init
More information about the Pkg-perl-cvs-commits
mailing list