t/lib/Test/Action/Class.pm

   1 package Test::Action::Class;
   2 use strict;
   3 use warnings;
   4
   5 use Moose;
   6 BEGIN { extends 'Catalyst::Action' };
   7
   8 before execute => sub {
   9    my ($self, $controller, $c, @args) = @_;
  10    $c->response->header( 'Using-Action' => 'STATION' );
  11 };
  12
  13 no Moose;
  14
  15 1;