added tests for ignorance against modifier signatures

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

use CatalystX::Declare;

controller TestApp::Controller::Errors {

    use TestApp::Types qw( NotFoo NotBar );


    action base under '/' as 'errors';


    #
    #   makes sure the right signature error is caught
    #

    method signature_error_on_bar (Object $ctx, NotBar $str) {
        $ctx->response->body(join ' ', $ctx->response->body, 'BAR');
    }

    final action signature_error_on_foo (NotFoo $str) under base {
        $ctx->response->body('FOO');
        $self->signature_error_on_bar($ctx, $str);
    }

    final action signature_error_on_foo_modify (NotFoo $str) under base {
        $ctx->response->body('FOO_MODIFY');
        $self->signature_error_on_bar($ctx, $str);
    }
}