sub dispatch {
my ( $self, $c ) = @_;
if ( $c->action ) {
-use Data::Dumper; warn Dumper( $c->action, $c->action->namespace );
$c->forward( join( '/', '', $c->action->namespace, '_DISPATCH' ) );
}
use strict;
use base 'Catalyst::Base';
-use Data::Dumper;
sub args :Local {
my ( $self, $c ) = @_;
$c->res->body( join('',@_) );
}
-1;
\ No newline at end of file
+1;
use Test::More tests => 28;
use Catalyst::Test 'TestApp';
-use Data::Dumper;
local $^W = 0;