[Moose-commits] r7893 - in MooseX-StrictConstructor/trunk: . lib/MooseX lib/MooseX/StrictConstructor/Role lib/MooseX/StrictConstructor/Role/Meta/Method

[autarch at code2.0beta.co.uk]

Author: autarch
Date: 2009-04-05 14:59:18 -0700 (Sun, 05 Apr 2009)
New Revision: 7893

Modified:
   MooseX-StrictConstructor/trunk/Build.PL
   MooseX-StrictConstructor/trunk/Changes
   MooseX-StrictConstructor/trunk/lib/MooseX/StrictConstructor.pm
   MooseX-StrictConstructor/trunk/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
   MooseX-StrictConstructor/trunk/lib/MooseX/StrictConstructor/Role/Object.pm
Log:
work with and require Moose 0.73_01+

Modified: MooseX-StrictConstructor/trunk/Build.PL
===================================================================
--- MooseX-StrictConstructor/trunk/Build.PL	2009-04-05 21:58:39 UTC (rev 7892)
+++ MooseX-StrictConstructor/trunk/Build.PL	2009-04-05 21:59:18 UTC (rev 7893)
@@ -8,7 +8,7 @@
 my $builder = Module::Build->new
     ( module_name        => 'MooseX::StrictConstructor',
       license            => 'perl',
-      requires           => { 'Moose'      => '0.56',
+      requires           => { 'Moose'      => '0.73_01',
                               'Test::More' => '0',
                             },
       create_makefile_pl => 'passthrough',

Modified: MooseX-StrictConstructor/trunk/Changes
===================================================================
--- MooseX-StrictConstructor/trunk/Changes	2009-04-05 21:58:39 UTC (rev 7892)
+++ MooseX-StrictConstructor/trunk/Changes	2009-04-05 21:59:18 UTC (rev 7893)
@@ -1,3 +1,8 @@
+0.08     2008-09-01
+
+- Make this module work with Moose 0.73_01+.
+
+
 0.07     2008-09-01
 
 - No code changes, just a stable release for Moose 0.56.

Modified: MooseX-StrictConstructor/trunk/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
===================================================================
--- MooseX-StrictConstructor/trunk/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm	2009-04-05 21:58:39 UTC (rev 7892)
+++ MooseX-StrictConstructor/trunk/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm	2009-04-05 21:59:18 UTC (rev 7893)
@@ -19,7 +19,7 @@
         ( map { "$_ => 1," }
           grep { defined }
           map { $_->init_arg() }
-          @{ $self->attributes() }
+          @{ $self->_attributes() }
         );
 
     $source .= <<"EOF";

Modified: MooseX-StrictConstructor/trunk/lib/MooseX/StrictConstructor/Role/Object.pm
===================================================================
--- MooseX-StrictConstructor/trunk/lib/MooseX/StrictConstructor/Role/Object.pm	2009-04-05 21:58:39 UTC (rev 7892)
+++ MooseX-StrictConstructor/trunk/lib/MooseX/StrictConstructor/Role/Object.pm	2009-04-05 21:59:18 UTC (rev 7893)
@@ -15,7 +15,7 @@
         ( map { $_ => 1 }
           grep { defined }
           map { $_->init_arg() }
-          $self->meta()->compute_all_applicable_attributes()
+          $self->meta()->get_all_attributes()
         );
 
     my @bad = sort grep { ! $attrs{$_} }  keys %{ $params };

Modified: MooseX-StrictConstructor/trunk/lib/MooseX/StrictConstructor.pm
===================================================================
--- MooseX-StrictConstructor/trunk/lib/MooseX/StrictConstructor.pm	2009-04-05 21:58:39 UTC (rev 7892)
+++ MooseX-StrictConstructor/trunk/lib/MooseX/StrictConstructor.pm	2009-04-05 21:59:18 UTC (rev 7893)
@@ -7,7 +7,7 @@
 $VERSION = eval $VERSION;
 
 use Class::MOP ();
-use Moose 0.56 ();
+use Moose 0.73_01 ();
 use Moose::Exporter;
 use Moose::Util::MetaRole;
 use MooseX::StrictConstructor::Role::Object;