r73373 - in /trunk/libmoosex-strictconstructor-perl: ./ debian/ debian/source/ lib/MooseX/ lib/MooseX/StrictConstructor/Role/ lib/MooseX/StrictConstructor/Trait/ lib/MooseX/StrictConstructor/Trait/Method/

ansgar at users.alioth.debian.org ansgar at users.alioth.debian.org
Sun Apr 24 10:46:26 UTC 2011


Author: ansgar
Date: Sun Apr 24 10:46:05 2011
New Revision: 73373

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=73373
Log:
New upstream release.

Added:
    trunk/libmoosex-strictconstructor-perl/debian/source/local-options
Removed:
    trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Role/
Modified:
    trunk/libmoosex-strictconstructor-perl/Changes
    trunk/libmoosex-strictconstructor-perl/MANIFEST
    trunk/libmoosex-strictconstructor-perl/META.json
    trunk/libmoosex-strictconstructor-perl/META.yml
    trunk/libmoosex-strictconstructor-perl/Makefile.PL
    trunk/libmoosex-strictconstructor-perl/README
    trunk/libmoosex-strictconstructor-perl/SIGNATURE
    trunk/libmoosex-strictconstructor-perl/debian/changelog
    trunk/libmoosex-strictconstructor-perl/dist.ini
    trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor.pm
    trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Trait/Class.pm
    trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Trait/Method/Constructor.pm

Modified: trunk/libmoosex-strictconstructor-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/Changes?rev=73373&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/Changes (original)
+++ trunk/libmoosex-strictconstructor-perl/Changes Sun Apr 24 10:46:05 2011
@@ -1,3 +1,9 @@
+0.16     2011-04-22
+
+- Don't wrap BUILDALL, since this breaks if the object doesn't inherit from
+  Moose::Object (doy).
+
+
 0.15     2011-04-13
 
 - The fix in 0.14 only worked with Moose 2.0, causing failures with earlier

Modified: trunk/libmoosex-strictconstructor-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/MANIFEST?rev=73373&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/MANIFEST (original)
+++ trunk/libmoosex-strictconstructor-perl/MANIFEST Sun Apr 24 10:46:05 2011
@@ -9,7 +9,6 @@
 SIGNATURE
 dist.ini
 lib/MooseX/StrictConstructor.pm
-lib/MooseX/StrictConstructor/Role/Object.pm
 lib/MooseX/StrictConstructor/Trait/Class.pm
 lib/MooseX/StrictConstructor/Trait/Method/Constructor.pm
 t/basic.t

Modified: trunk/libmoosex-strictconstructor-perl/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/META.json?rev=73373&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/META.json (original)
+++ trunk/libmoosex-strictconstructor-perl/META.json Sun Apr 24 10:46:05 2011
@@ -44,6 +44,6 @@
          "web" : "http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo/MooseX-StrictConstructor.git;a=summary"
       }
    },
-   "version" : "0.15"
+   "version" : "0.16"
 }
 

Modified: trunk/libmoosex-strictconstructor-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/META.yml?rev=73373&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/META.yml (original)
+++ trunk/libmoosex-strictconstructor-perl/META.yml Sun Apr 24 10:46:05 2011
@@ -20,4 +20,4 @@
 resources:
   bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=MooseX-StrictConstructor
   repository: git://git.moose.perl.org/MooseX-StrictConstructor.git
-version: 0.15
+version: 0.16

Modified: trunk/libmoosex-strictconstructor-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/Makefile.PL?rev=73373&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/Makefile.PL (original)
+++ trunk/libmoosex-strictconstructor-perl/Makefile.PL Sun Apr 24 10:46:05 2011
@@ -26,7 +26,7 @@
     'Moose' => '0.94',
     'namespace::autoclean' => '0'
   },
-  'VERSION' => '0.15',
+  'VERSION' => '0.16',
   'test' => {
     'TESTS' => 't/*.t'
   }

Modified: trunk/libmoosex-strictconstructor-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/README?rev=73373&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/README (original)
+++ trunk/libmoosex-strictconstructor-perl/README Sun Apr 24 10:46:05 2011
@@ -1,7 +1,7 @@
 
 
 This archive contains the distribution MooseX-StrictConstructor,
-version 0.15:
+version 0.16:
 
   Make your object constructors blow up on unknown attributes
 

Modified: trunk/libmoosex-strictconstructor-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/SIGNATURE?rev=73373&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/SIGNATURE (original)
+++ trunk/libmoosex-strictconstructor-perl/SIGNATURE Sun Apr 24 10:46:05 2011
@@ -14,19 +14,18 @@
 -----BEGIN PGP SIGNED MESSAGE-----
 Hash: SHA1
 
-SHA1 c31bf62712bb4a85632905dadfdcbcad9e90809c Changes
+SHA1 358b030a619370ea7359a866baedde5c719ea847 Changes
 SHA1 b09c48494e1d0630c6bd6b11fef8e0ac35d509da INSTALL
 SHA1 c715d20265d2931c7564fc64abfdc4f8ff33e297 LICENSE
-SHA1 b815cf8e0fa77a4b2a15e01518282ffbd68fd145 MANIFEST
-SHA1 f6ad790c9f354b00fa06904f9d8975c0867b6889 META.json
-SHA1 ac1c0d343670f5691cd8ed8db6410e2f30182a96 META.yml
-SHA1 4fb31c6112fac1fedde81ec64d443eb27ba0326e Makefile.PL
-SHA1 37cfb9149fa6fc6205d204481450f5e4e7f2f682 README
-SHA1 70ff27110cdc9239162c05d745ef8156d5eb2bda dist.ini
-SHA1 65dd30a7f16929bbe47acce37a5cac6262f28634 lib/MooseX/StrictConstructor.pm
-SHA1 ef7980b2328c56d7f559be2ac415b6304f60c0ac lib/MooseX/StrictConstructor/Role/Object.pm
-SHA1 32d5dc72f45ab6172e4777e6dc8de2776df6de64 lib/MooseX/StrictConstructor/Trait/Class.pm
-SHA1 6a6b8f6bef66e4fc0209d8dcd99f761bd1946c5a lib/MooseX/StrictConstructor/Trait/Method/Constructor.pm
+SHA1 3216b31652847aecf0a5a1d09c6edaab44442c64 MANIFEST
+SHA1 ab4aef0042f93aefcd71014e1cf93985c34d7b02 META.json
+SHA1 03bd578d7dc4ad35b1f583e16c00b540c6362f6a META.yml
+SHA1 1d18a87a69b5549170a6766c0175c0b977b10240 Makefile.PL
+SHA1 47723ff3c10caa4c1bb925272d6216035f7d6143 README
+SHA1 c680b8dbca6a46bcda6cb2a3384a3c87533e2290 dist.ini
+SHA1 048a8d21c1415ac0b28fbe5480d492cb4dd01815 lib/MooseX/StrictConstructor.pm
+SHA1 83e2d2032238372030d08daca7d4fbb464fe5226 lib/MooseX/StrictConstructor/Trait/Class.pm
+SHA1 3b12506e584abcf300a4b7f1f2d70092a96e048b lib/MooseX/StrictConstructor/Trait/Method/Constructor.pm
 SHA1 4f5938ee545701adeec552fb3f898d4a5c147880 t/basic.t
 SHA1 62e0d60d9456d31463f448be2265c9fc15efcceb t/instance.t
 SHA1 a032c41ef6887fab1b900669c2d304fab46680e2 t/release-eol.t
@@ -37,7 +36,7 @@
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v1.4.10 (GNU/Linux)
 
-iEYEARECAAYFAk2l9kcACgkQIgMCsV8qvRJxWgCfY24Ui2bUGnomM0+T5E57w9+G
-JCgAnAkWv5/HaIsrM9xCg+2dFktF5Y3o
-=69v3
+iEYEARECAAYFAk2yHP4ACgkQIgMCsV8qvRKfJwCfYAhz4PJKqwEodUld2CX/y/Lj
+3IgAoJQImOdUqYu2EpyUc/0yyZwnbHdU
+=wHFF
 -----END PGP SIGNATURE-----

Modified: trunk/libmoosex-strictconstructor-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/debian/changelog?rev=73373&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/debian/changelog (original)
+++ trunk/libmoosex-strictconstructor-perl/debian/changelog Sun Apr 24 10:46:05 2011
@@ -1,3 +1,9 @@
+libmoosex-strictconstructor-perl (0.16-1) unstable; urgency=low
+
+  * New upstream release.
+
+ -- Ansgar Burchardt <ansgar at debian.org>  Sun, 24 Apr 2011 12:45:52 +0200
+
 libmoosex-strictconstructor-perl (0.15-1) unstable; urgency=low
 
   [ Ansgar Burchardt ]

Added: trunk/libmoosex-strictconstructor-perl/debian/source/local-options
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/debian/source/local-options?rev=73373&op=file
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/debian/source/local-options (added)
+++ trunk/libmoosex-strictconstructor-perl/debian/source/local-options Sun Apr 24 10:46:05 2011
@@ -1,0 +1,2 @@
+abort-on-upstream-changes
+unapply-patches

Modified: trunk/libmoosex-strictconstructor-perl/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/dist.ini?rev=73373&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/dist.ini (original)
+++ trunk/libmoosex-strictconstructor-perl/dist.ini Sun Apr 24 10:46:05 2011
@@ -2,9 +2,11 @@
 author  = Dave Rolsky <autarch at urth.org>
 license = Artistic_2_0
 copyright_holder = Dave Rolsky
-copyright_year   = 2011
 
-version = 0.15
+version = 0.16
+
+[NextRelease]
+format = %-8v %{yyyy-MM-dd}d
 
 [@Basic]
 

Modified: trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor.pm?rev=73373&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor.pm (original)
+++ trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor.pm Sun Apr 24 10:46:05 2011
@@ -1,6 +1,6 @@
 package MooseX::StrictConstructor;
 BEGIN {
-  $MooseX::StrictConstructor::VERSION = '0.15';
+  $MooseX::StrictConstructor::VERSION = '0.16';
 }
 
 use strict;
@@ -9,7 +9,6 @@
 use Moose 0.94 ();
 use Moose::Exporter;
 use Moose::Util::MetaRole;
-use MooseX::StrictConstructor::Role::Object;
 
 {
     my %class_meta = ( class => ['MooseX::StrictConstructor::Trait::Class'] );
@@ -22,8 +21,7 @@
     }
 
     Moose::Exporter->setup_import_methods(
-            class_metaroles  => \%class_meta,
-            base_class_roles => ['MooseX::StrictConstructor::Role::Object'],
+        class_metaroles => \%class_meta,
     );
 }
 
@@ -41,7 +39,7 @@
 
 =head1 VERSION
 
-version 0.15
+version 0.16
 
 =head1 SYNOPSIS
 

Modified: trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Trait/Class.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Trait/Class.pm?rev=73373&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Trait/Class.pm (original)
+++ trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Trait/Class.pm Sun Apr 24 10:46:05 2011
@@ -1,6 +1,6 @@
 package MooseX::StrictConstructor::Trait::Class;
 BEGIN {
-  $MooseX::StrictConstructor::Trait::Class::VERSION = '0.15';
+  $MooseX::StrictConstructor::Trait::Class::VERSION = '0.16';
 }
 
 use Moose::Role;
@@ -8,6 +8,32 @@
 use namespace::autoclean;
 
 use B ();
+
+around new_object => sub {
+    my $orig     = shift;
+    my $self     = shift;
+    my $params   = @_ == 1 ? $_[0] : {@_};
+    my $instance = $self->$orig(@_);
+
+    my %attrs = (
+        __INSTANCE__ => 1,
+        (
+            map { $_ => 1 }
+            grep {defined}
+            map  { $_->init_arg() } $self->get_all_attributes()
+        )
+    );
+
+    my @bad = sort grep { !$attrs{$_} } keys %$params;
+
+    if (@bad) {
+        $self->throw_error(
+            "Found unknown attribute(s) init_arg passed to the constructor: @bad"
+        );
+    }
+
+    return $instance;
+};
 
 around '_inline_BUILDALL' => sub {
     my $orig = shift;
@@ -32,19 +58,6 @@
     );
 } if $Moose::VERSION >= 1.9900;
 
-# If the base class role is applied first, and then a superclass is added, we
-# lose the role.
-after superclasses => sub {
-    my $self = shift;
-
-    return unless @_;
-
-    Moose::Util::MetaRole::apply_base_class_roles(
-        for   => $self->name(),
-        roles => ['MooseX::StrictConstructor::Role::Object'],
-    );
-};
-
 1;
 
 # ABSTRACT: A role to make immutable constructors strict
@@ -59,7 +72,7 @@
 
 =head1 VERSION
 
-version 0.15
+version 0.16
 
 =head1 DESCRIPTION
 

Modified: trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Trait/Method/Constructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Trait/Method/Constructor.pm?rev=73373&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Trait/Method/Constructor.pm (original)
+++ trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Trait/Method/Constructor.pm Sun Apr 24 10:46:05 2011
@@ -1,6 +1,6 @@
 package MooseX::StrictConstructor::Trait::Method::Constructor;
 BEGIN {
-  $MooseX::StrictConstructor::Trait::Method::Constructor::VERSION = '0.15';
+  $MooseX::StrictConstructor::Trait::Method::Constructor::VERSION = '0.16';
 }
 
 use Moose::Role;
@@ -50,7 +50,7 @@
 
 =head1 VERSION
 
-version 0.15
+version 0.16
 
 =head1 DESCRIPTION
 




More information about the Pkg-perl-cvs-commits mailing list