3 # Copyright (c) 2006 Jonathan Rockway <jrockway@cpan.org>
5 package TestApp::Controller::Fork;
9 use base 'Catalyst::Controller';
13 my ($self, $c, $ls) = @_;
14 my ($result, $code) = (undef, 1);
21 $result = system($ls, $ls, $ls) || $!;
25 $c->response->body(Dump({result => $result, code => $code}));
28 sub backticks : Local {
29 my ($self, $c, $ls) = @_;
30 my ($result, $code) = (undef, 1);
37 $result = `$ls $ls $ls` || $!;
41 $c->response->body(Dump({result => $result, code => $code}));