fixed bug with under block leaking its setting to following actions

[catagits/CatalystX-Declare.git] / lib / CatalystX / Declare / Controller / RegisterActionRoles.pm

use MooseX::Declare;
use Class::MOP;

role CatalystX::Declare::Controller::RegisterActionRoles 
    with CatalystX::Declare::Controller::QualifyClassNames {

    around create_action (%args) {

        my @action_roles = @{ delete($args{attributes}{CatalystX_Declarative_ActionRoles}) || [] };

        my $action = $self->$orig(%args);

        for my $role (@action_roles) {
            my $fq_role = $self->_qualify_class_name(ActionRole => $role);

            Class::MOP::load_class($fq_role);
            $fq_role->meta->apply($action);
        }

        return $action;
    }
}

1;