fixed regression with action_role namespaces being lost (created last release) and...

[catagits/CatalystX-Declare.git] / t / lib / TestApp / Controller / ActionParams.pm

use CatalystX::Declare;
namespace TestApp;

role hasActionParams {
    has [qw/p1 p2/] => (is=>'ro', lazy_build=>1);

    method _build_p1 {
        join ',', @{$self->attributes->{p1}};
    }
    method _build_p2 {
        join ',', @{$self->attributes->{p2}};
    }
}

controller ::Controller::ActionParams {

    action base
    under '/base'
    as 'actionparams';

    action first under base
    with hasActionParams(p1=>100,p2=>101)
    is final {
        my $p1 = $ctx->controller->action_for('first')->p1;
        my $p2 = $ctx->controller->action_for('first')->p2;
        $ctx->response->body("action_args_first: $p1,$p2");
    }

    action second under base
    with hasActionParams({p1=>200,p2=>201})
    is final {
        my $p1 = $ctx->controller->action_for('second')->p1;
        my $p2 = $ctx->controller->action_for('second')->p2;
        $ctx->response->body("action_args_second: $p1,$p2");
    }

    action third under base
    with hasActionParams(
        p1=>300,
        p2=>301,
    ) is final {
        my $p1 = $ctx->controller->action_for('third')->p1;
        my $p2 = $ctx->controller->action_for('third')->p2;
        $ctx->response->body("action_args_third: $p1,$p2");
    }

    action forth under base
    with (hasActionParams(
        p1=>400,
        p2=>401,
    ), hasActionParams(p1=>1,p2=>2)) is final {
        my $p1 = $ctx->controller->action_for('forth')->p1;
        my $p2 = $ctx->controller->action_for('forth')->p2;
        $ctx->response->body("action_args_forth: $p1,$p2");
    }

    action first_app_ns under base
    with hasActionParams_AppNS(p1=>100,p2=>101)
    is final {
        my $p1 = $ctx->controller->action_for('first')->p1;
        my $p2 = $ctx->controller->action_for('first')->p2;
        $ctx->response->body("action_args_first: $p1,$p2");
    }

    action first_cat_ns under base
    with hasActionParams_CatNS(p1=>100,p2=>101)
    is final {
        my $p1 = $ctx->controller->action_for('first')->p1;
        my $p2 = $ctx->controller->action_for('first')->p2;
        $ctx->response->body("action_args_first: $p1,$p2");
    }

}