package TestApp::Controller::Engine::Response::Print;

use strict;
use base 'Catalyst::Base';

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;
