4 use Catalyst qw[Test::Errors Test::Headers];
10 root => '/Users/chansen/src/MyApp/root',
15 #sub execute { return shift->NEXT::execute(@_); } # does not work, bug?
19 my $class = ref( $c->component($_[0]) ) || $_[0];
20 my $action = $c->actions->{reverse}->{"$_[1]"} || "$_[1]";
24 if ( $action =~ /->(\w+)$/ ) {
27 elsif ( $action =~ /\/(\w+)$/ ) {
31 my $executed = sprintf( "%s->%s", $class, $method );
33 $c->response->headers->push_header( 'X-Catalyst-Executed' => $executed );
34 return $c->SUPER::execute(@_);