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