|| confess "You must pass a hash of options";
($options{package_name} && $options{name})
- || confess "You must supply the package_name and name parameters";
+ || confess "You must supply the package_name and name parameters $Class::MOP::Method::UPGRADE_ERROR_TEXT";
my $self = bless {
# from our superclass
=item B<options>
-=item B<intialize_body>
-
=item B<initialize_body>
=item B<associated_metaclass>