work with and require Moose 0.73_01+

diff --git a/Build.PL b/Build.PL
index 863850c..cab726c 100644 (file)
--- a/Build.PL
+++ b/Build.PL
@@ -8,7 +8,7 @@ use Module::Build;
 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',

diff --git a/Changes b/Changes
index 1bba694..2f57fa7 100644 (file)
--- a/Changes
+++ b/Changes
@@ -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.

diff --git a/lib/MooseX/StrictConstructor.pm b/lib/MooseX/StrictConstructor.pm
index 1f58bb1..19df7a9 100644 (file)
--- a/lib/MooseX/StrictConstructor.pm
+++ b/lib/MooseX/StrictConstructor.pm
@@ -7,7 +7,7 @@ our $VERSION = '0.07';
 $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;

diff --git a/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm b/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
index 577a846..5c0a8a4 100644 (file)
--- a/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
+++ b/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
@@ -19,7 +19,7 @@ around '_generate_BUILDALL' => sub
         ( map { "$_ => 1," }
           grep { defined }
           map { $_->init_arg() }
-          @{ $self->attributes() }
+          @{ $self->_attributes() }
         );
 
     $source .= <<"EOF";

diff --git a/lib/MooseX/StrictConstructor/Role/Object.pm b/lib/MooseX/StrictConstructor/Role/Object.pm
index d060690..9f29e60 100644 (file)
--- a/lib/MooseX/StrictConstructor/Role/Object.pm
+++ b/lib/MooseX/StrictConstructor/Role/Object.pm
@@ -15,7 +15,7 @@ after 'BUILDALL' => sub
         ( 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 };