t/lib/TestApp/Controller/Engine/Response/Print.pm

   1 package TestApp::Controller::Engine::Response::Print;
   2
   3 use strict;
   4 use base 'Catalyst::Controller';
   5
   6 sub one :Relative {
   7     my ( $self, $c ) = @_;
   8
   9     $c->res->print("foo");
  10 }
  11
  12 sub two :Relative {
  13     my ( $self, $c ) = @_;
  14
  15     $c->res->print(qw/foo bar/);
  16 }
  17
  18 sub three :Relative {
  19     my ( $self, $c ) = @_;
  20
  21     local $, = ',';
  22     local $\ = ':';
  23     $c->res->print(qw/foo bar baz/);
  24 }
  25
  26
  27 1;