[catagits/CatalystX-Declare.git] / t / lib / TestApp / ControllerRole / ModifierSignatures.pm

use CatalystX::Declare;

controller_role TestApp::ControllerRole::ModifierSignatures {

    around foo (@args) {
        $self->$orig(@args);
        $args[0]->response->body( $args[0]->response->body . ' modified' );
    }
}
Commit	Line	Data
f0671dfc	1	use CatalystX::Declare;
	2
	3	controller_role TestApp::ControllerRole::ModifierSignatures {
	4
	5	around foo (@args) {
	6	$self->$orig(@args);
	7	$args[0]->response->body( $args[0]->response->body . ' modified' );
	8	}
	9	}