Updating branch to current revision

[catagits/Catalyst-Runtime.git] / trunk / t / lib / TestApp / Action / TestBefore.pm

diff --git a/trunk/t/lib/TestApp/Action/TestBefore.pm b/trunk/t/lib/TestApp/Action/TestBefore.pm
new file mode 100644 (file)
index 0000000..c0db6fe
--- /dev/null
+++ b/trunk/t/lib/TestApp/Action/TestBefore.pm
@@ -0,0 +1,15 @@
+package TestApp::Action::TestBefore;
+
+use strict;
+use warnings;
+
+use base qw/Catalyst::Action/;
+
+sub execute {
+    my $self = shift;
+    my ( $controller, $c, $test ) = @_;
+    $c->res->header( 'X-TestAppActionTestBefore', $test );
+    $self->next::method( @_ );
+}
+
+1;