t/lib/TestApp/Controller/Fork.pm

   1 #!/usr/bin/perl
   2 # Fork.pm
   3 # Copyright (c) 2006 Jonathan Rockway <jrockway@cpan.org>
   4
   5 package TestApp::Controller::Fork;
   6
   7 use strict;
   8 use warnings;
   9 use base 'Catalyst::Controller';
  10 use YAML;
  11
  12 sub fork : Global {
  13     my ($self, $c, $ls) = @_;
  14     my ($result, $code) = (undef, 1);
  15
  16     if(!-e $ls || !-x _){
  17         $result = 'skip';
  18         $code = 0;
  19     }
  20     else {
  21         $result = system($ls, $ls, $ls);
  22         $code = $?;
  23     }
  24
  25     $c->response->body(Dump({result => $result, code => $code}));
  26 }
  27
  28 1;