
MooseX::LexicalRoleApplication - Apply roles for a lexical scope only

version 0.03

my $obj = SomeClass->new;
$obj->method_from_role; # fails
{
my $guard = MooseX::LexicalRoleApplication->apply(SomeRole->meta, $obj);
$obj->method_from_role; # works
}
$obj->method_from_role; # fails

This module allows applying a role for the duration of a lexical scope only.

Actual lexical role application isn't quite supported yet. The following example won't do what it's supposed to just yet:
{
my $guard = MooseX::LexicalRoleApplication->apply($role, $obj);
$other_role->apply($obj);
}

Will apply $role to $instance. %rebless_params will be passed to "rebless_instance" in Class::MOP::Class. %application_options will be passed to "apply" in Moose::Meta::Role.
A Scope::Guard will be returned. Keep it around as long as you want $role to be applied to $instance. You can cancel role removal by calling dismiss on the returned scope guard. If you want to remove the role immediately, you can simply undef the guard.

Florian Ragwitz <rafl@debian.org>

This software is copyright (c) 2010 by Florian Ragwitz.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.