my @args = @_;
no warnings 'redefine';
if ($Moose::SUPER_SLOT{$_super_package}) {
- local *{$Moose::SUPER_SLOT{$_super_package}} = sub { $super->(@args) };
+ local *{$Moose::SUPER_SLOT{$_super_package}} = sub { $super->body->(@args) };
return $method->(@args);
} else {
confess "Trying to call override modifier'd method without super()";
local *{$Moose::INNER_SLOT{$_super_package}} = sub {};
$method->(@args);
};
- return $super->(@args);
+ return $super->body->(@args);
}
else {
- return $super->(@args);
+ return $super->body->(@args);
}
});
}
=head1 COPYRIGHT AND LICENSE
-Copyright 2006, 2007 by Infinity Interactive, Inc.
+Copyright 2006-2008 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>