version 0.010 api fixes

diff --git a/Changes b/Changes
index ff60496..e78a7e3 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,4 +1,5 @@
-[0.010] ...
+[0.010] Sun Sep 13 15:52:01 CEST 2009
+    - Fix Compat with MooseX::Method::Signatures >=0.22 ( KENTNL )
 
 [0.009] Fri Aug 21 23:54:11 CEST 2009
     - action classes are now moosified after loading, this means that

diff --git a/Makefile.PL b/Makefile.PL
index e8567e1..129c3f5 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -22,15 +22,15 @@ requires        'Perl6::Junction',                  '1.40000';
 requires        'aliased',                          '0.30';
 requires        'parent',                           '0.221';
 requires        'Data::Dump',                       '1.14';
-requires        'Catalyst',                         '5.80007';
+requires        'Catalyst',                         '5.80012';
 requires        'CLASS',                            '1.00';
 requires        'Devel::Declare',                   '0.005011';
 requires        'Moose',                            '0.89';
 requires        'MooseX::AttributeHelpers',         '0.21';
-requires        'MooseX::Declare',                  '0.27';
+requires        'MooseX::Declare',                  '0.30';
 requires        'MooseX::MethodAttributes',         '0.15';
-requires        'MooseX::Types',                    '0.17';
-requires        'MooseX::Method::Signatures',       '0.21';
+requires        'MooseX::Types',                    '0.20';
+requires        'MooseX::Method::Signatures',       '0.26';
 requires        'FindBin';
 
 test_requires   'Test::More',                       '0.92';

diff --git a/lib/CatalystX/Declare/Keyword/Action.pm b/lib/CatalystX/Declare/Keyword/Action.pm
index 6f0858c..b78bad9 100644 (file)
--- a/lib/CatalystX/Declare/Keyword/Action.pm
+++ b/lib/CatalystX/Declare/Keyword/Action.pm
@@ -135,20 +135,22 @@ class CatalystX::Declare::Keyword::Action
             my $class = caller;
             my $body  = shift;
 
-            $method->_set_actual_body($body);
-            $method->{attributes} = \@attributes;
+            my $real_method = $method->reify(
+                actual_body => $body,
+                attributes  => \@attributes,
+            );
 
             if ($modifier) {
 
-                add_method_modifier $class, $modifier, [$name, $method];
+                add_method_modifier $class, $modifier, [$name, $real_method];
             }
             else {
 
                 my $prepare_meta = sub {
                     my ($meta) = @_;
 
-                    $meta->add_method($name, $method);
-                    $meta->register_method_attributes($meta->name->can($method->name), \@attributes);
+                    $meta->add_method($name, $real_method);
+                    $meta->register_method_attributes($meta->name->can($real_method->name), \@attributes);
                 };
 
                 if ($ctx->stack->[-1] and $ctx->stack->[-1]->is_parameterized) {