Permalink
Browse files

the wrap signature chages to be compatible with Moose::Meta::Method.

  • Loading branch information...
1 parent 2f710da commit 46c02364f2a85a51b8fa5624ed6e846bbe086030 @ruoso ruoso committed May 31, 2010
Showing with 4 additions and 4 deletions.
  1. +4 −4 t/meta.t
View
@@ -10,13 +10,13 @@ use MooseX::Method::Signatures::Meta::Method;
use metaclass;
my $method = MooseX::Method::Signatures::Meta::Method->wrap(
- signature => '($class: Int :$foo, Str :$bar)',
- package_name => 'Foo',
- name => 'bar',
- body => sub {
+ sub {
my ($class, $foo, $bar) = @_;
return $bar x $foo;
},
+ signature => '($class: Int :$foo, Str :$bar)',
+ package_name => 'Foo',
+ name => 'bar',
);
::isa_ok($method, 'Moose::Meta::Method');

0 comments on commit 46c0236

Please sign in to comment.