remove redundant constructors from MOP.pm

[gitmo/Class-MOP.git] / t / 031_method_modifiers.t

diff --git a/t/031_method_modifiers.t b/t/031_method_modifiers.t
index d2b695d..8b42875 100644 (file)
--- a/t/031_method_modifiers.t
+++ b/t/031_method_modifiers.t
@@ -16,7 +16,7 @@ BEGIN {
        my $trace = '';
 
        my $method = Class::MOP::Method->wrap(
-           sub { $trace .= 'primary' },
+           body         => sub { $trace .= 'primary' },
            package_name => 'main',
            name         => '__ANON__',
        );