Apache2-Camelcadedb

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      },
      "runtime" : {
         "requires" : {
            "Devel::Camelcadedb" : "0",
            "mod_perl2" : "0",
            "perl" : "5.008"
         }
      },
      "test" : {
         "requires" : {
            "JSON::XS" : "0",
            "Test::More" : "0"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "bugtracker" : {
         "web" : "https://github.com/mbarbon/apache2-camelcadedb/issues"
      },
      "repository" : {

META.yml  view on Meta::CPAN

---
abstract: 'mod_perl2 integration for Devel::Camelcadedb'
author:
  - 'Mattia Barbon <mbarbon@cpan.org>'
build_requires:
  ExtUtils::MakeMaker: '0'
  JSON::XS: '0'
  Test::More: '0'
configure_requires:
  Apache::TestMM: '0'
  mod_perl2: '0'
dynamic_config: 1
generated_by: 'ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.143240'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'

Makefile.PL  view on Meta::CPAN

use Apache::TestRunPerl ();

my $mm_ver = $ExtUtils::MakeMaker::VERSION;
if ($mm_ver =~ /_/) {
    $mm_ver = eval $mm_ver;
    die $@ if $@;
}

my %test_requires = (
    'Test::More'                => 0,
    'JSON::XS'                  => 0,
);

my %configure_requires = (
    'mod_perl2'                 => 0,
    'Apache::TestMM'            => 0,
);

# configure tests based on incoming arguments
Apache::TestMM::filter_args();

t/010_sanity.t  view on Meta::CPAN

use strict;
use warnings;
use threads;
use threads::shared;

use Test::More tests => 5;
use Apache::TestRequest;
use IO::Socket::INET;
use JSON::XS;

my $listen_address = do {
    open my $fh, 't/logs/camelcade_port.txt'
        or die "Error opening 't/logs/camelcade_port.txt': $!";
    scalar readline $fh;
};
my $fake_dbg = IO::Socket::INET->new(
    LocalAddr => $listen_address,
    ReusePort => 1,
    Listen    => 5,

t/010_sanity.t  view on Meta::CPAN

die "Unable to set up debugger socket: $!" unless $fake_dbg;

my @events :shared;

sub accept_debugger {
    my $remote = $fake_dbg->accept;

    push @events, 'debugger_open';

    my $json_text = $remote->getline;
    my $data = JSON::XS->new->allow_nonref->decode($json_text);

    is($data->{event}, "READY", "debugger handshake sanity check");
    sleep 1;

    push @events, 'debugger_close';
    $remote->close;

    1;
}