added test for Moose controller inheritance using method modifiers

[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Moose / MethodModifiers.pm

diff --git a/t/lib/TestApp/Controller/Moose/MethodModifiers.pm b/t/lib/TestApp/Controller/Moose/MethodModifiers.pm
new file mode 100644 (file)
index 0000000..a2afb60
--- /dev/null
+++ b/t/lib/TestApp/Controller/Moose/MethodModifiers.pm
@@ -0,0 +1,10 @@
+package TestApp::Controller::Moose::MethodModifiers;
+use Moose;
+BEGIN { extends qw/TestApp::Controller::Moose/; }
+
+after get_attribute => sub {
+    my ($self, $c) = @_;
+    $c->response->header( 'X-Catalyst-Test-After' => 'after called' );
+};
+
+1;