CGI-Compile

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      },
      "test" : {
         "requires" : {
            "CGI" : "0",
            "Capture::Tiny" : "0",
            "Filter::Util::Call" : "0",
            "Sub::Identify" : "0",
            "Test::More" : "0",
            "Test::NoWarnings" : "0",
            "Test::Requires" : "0",
            "Try::Tiny" : "0"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "bugtracker" : {
         "web" : "https://github.com/miyagawa/CGI-Compile/issues"
      },
      "homepage" : "https://github.com/miyagawa/CGI-Compile",
      "repository" : {

META.yml  view on Meta::CPAN

author:
  - 'Tatsuhiko Miyagawa <miyagawa@bulknews.net>'
build_requires:
  CGI: '0'
  Capture::Tiny: '0'
  Filter::Util::Call: '0'
  Sub::Identify: '0'
  Test::More: '0'
  Test::NoWarnings: '0'
  Test::Requires: '0'
  Try::Tiny: '0'
configure_requires:
  Module::Build::Tiny: '0.034'
dynamic_config: 0
generated_by: 'Dist::Milla version v1.0.22, Dist::Zilla version 6.032, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: CGI-Compile
no_index:

cpanfile  view on Meta::CPAN

on configure => sub {
    requires 'Module::Build::Tiny';
};

on test => sub {
    requires 'Test::More';
    requires 'Test::NoWarnings';
    requires 'Test::Requires';
    requires 'Capture::Tiny';
    requires 'Try::Tiny';
    requires 'CGI';
    requires 'Filter::Util::Call';
    requires 'Sub::Identify';
};

on develop => sub {
    requires 'Dist::Zilla';
    requires 'Dist::Zilla::PluginBundle::Milla';
    requires 'CGI::Emulate::PSGI';
    requires 'Plack::Test';

t/race-conditions.t  view on Meta::CPAN

use Test::More $^O eq 'MSWin32' ? (
    skip_all => 'no fork() on Win32')
: (
    !$ENV{AUTHOR_TESTING} ? (skip_all => 'AUTHOR_TESTING not set') :
    (tests => $ENV{AUTOMATED_TESTING} ? 3600 : 75)
);
use CGI;
use CGI::Compile;
use POSIX ':sys_wait_h';
use Capture::Tiny qw/capture_stdout capture_stderr/;
use Try::Tiny;

my %children;

$SIG{CHLD} = sub {
    while ((my $child = waitpid(-1, WNOHANG)) > 0) {
        delete $children{$child};

        ok($? >> 8 == 0, "no race condition in child PID=$child");
    }
};