Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix more old MetaRole API usage

  • Loading branch information...
commit 8a8473212d379a2ffff0944ca04bdf4aee96d098 1 parent f6e0d32
@autarch autarch authored
View
1  Changes
@@ -1,6 +1,7 @@
Revision history for MooseX-NonMoose
{{$NEXT}}
+ - Avoid warnings from Moose 1.09, part 2 (Dave Rolsky).
0.13 2010-07-18
- Also avoid warnings in MooseX::NonMoose::InsideOut.
View
20 t/31-moose-exporter.t
@@ -14,9 +14,11 @@ BEGIN {
shift;
my %options = @_;
Moose->init_meta(%options);
- Moose::Util::MetaRole::apply_metaclass_roles(
- for_class => $options{for_class},
- metaclass_roles => ['MooseX::NonMoose::Meta::Role::Class'],
+ Moose::Util::MetaRole::apply_metaroles(
+ for => $options{for_class},
+ class_metaroles => {
+ class => ['MooseX::NonMoose::Meta::Role::Class'],
+ },
);
return Class::MOP::class_of($options{for_class});
}
@@ -29,11 +31,13 @@ BEGIN {
shift;
my %options = @_;
Moose->init_meta(%options);
- Moose::Util::MetaRole::apply_metaclass_roles(
- for_class => $options{for_class},
- metaclass_roles => ['MooseX::NonMoose::Meta::Role::Class'],
- constructor_class_roles =>
- ['MooseX::NonMoose::Meta::Role::Constructor'],
+ Moose::Util::MetaRole::apply_metaroles(
+ for => $options{for_class},
+ class_metaroles => {
+ class => ['MooseX::NonMoose::Meta::Role::Class'],
+ constructor =>
+ ['MooseX::NonMoose::Meta::Role::Constructor'],
+ },
);
return Class::MOP::class_of($options{for_class});
}
View
16 t/32-moosex-insideout.t
@@ -19,13 +19,15 @@ BEGIN {
shift;
my %options = @_;
Moose->init_meta(%options);
- Moose::Util::MetaRole::apply_metaclass_roles(
- for_class => $options{for_class},
- metaclass_roles => ['MooseX::NonMoose::Meta::Role::Class'],
- constructor_class_roles =>
- ['MooseX::NonMoose::Meta::Role::Constructor'],
- instance_metaclass_roles =>
- ['MooseX::InsideOut::Role::Meta::Instance'],
+ Moose::Util::MetaRole::apply_metaroles(
+ for => $options{for_class},
+ class_metaroles => {
+ class => ['MooseX::NonMoose::Meta::Role::Class'],
+ constructor =>
+ ['MooseX::NonMoose::Meta::Role::Constructor'],
+ instance =>
+ ['MooseX::InsideOut::Role::Meta::Instance'],
+ },
);
return Class::MOP::class_of($options{for_class});
}
View
16 t/33-moosex-globref.t
@@ -23,13 +23,15 @@ BEGIN {
shift;
my %options = @_;
Moose->init_meta(%options);
- Moose::Util::MetaRole::apply_metaclass_roles(
- for_class => $options{for_class},
- metaclass_roles => ['MooseX::NonMoose::Meta::Role::Class'],
- constructor_class_roles =>
- ['MooseX::NonMoose::Meta::Role::Constructor'],
- instance_metaclass_roles =>
- ['MooseX::GlobRef::Role::Meta::Instance'],
+ Moose::Util::MetaRole::apply_metaroles(
+ for => $options{for_class},
+ class_metaroles => {
+ class => ['MooseX::NonMoose::Meta::Role::Class'],
+ constructor =>
+ ['MooseX::NonMoose::Meta::Role::Constructor'],
+ instance =>
+ ['MooseX::GlobRef::Role::Meta::Instance'],
+ },
);
return Class::MOP::class_of($options{for_class});
}
Please sign in to comment.
Something went wrong with that request. Please try again.