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

use CatalystX::Declare;

controller TestApp::Controller::ModelTest {

    method find_model (Object $ctx) {
        return $ctx->model('TestModel');
    }


    action base as 'model_test' under '/';

    under base {

        final action next {
            $ctx->response->body( $self->find_model($ctx)->next );
        }

        final action reset {
            $ctx->response->body( $self->find_model($ctx)->reset );
        }
    }
}
Commit	Line	Data
8e5d9092	1	use CatalystX::Declare;
	2
	3	controller TestApp::Controller::ModelTest {
	4
	5	method find_model (Object $ctx) {
2b73049f	6	return $ctx->model('TestModel');
8e5d9092	7	}
	8
	9
	10	action base as 'model_test' under '/';
	11
	12	under base {
	13
	14	final action next {
	15	$ctx->response->body( $self->find_model($ctx)->next );
	16	}
	17
	18	final action reset {
	19	$ctx->response->body( $self->find_model($ctx)->reset );
	20	}
	21	}
	22	}