Catalyst Tip: bind STDOUT with res->body

sub test_body : Local {
    my ($self, $c) = @_;

    $c->res->body(\*STDOUT);
    print "a\n";
    print "b\n";
}

I think that's pretty useful when u are trying to use "Benchmark" module (or others use STDOUT).

Have fun!