package TestApp::Controller::Engine::Response::Print;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
sub one :Relative {
my ( $self, $c ) = @_;
-
+
$c->res->print("foo");
}
my ( $self, $c ) = @_;
local $, = ',';
+ local $\ = ':';
$c->res->print(qw/foo bar baz/);
}
+
1;