Async-Hooks

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "runtime" : {
         "requires" : {
            "Carp" : 0,
            "Mo" : "0.30",
            "namespace::clean" : 0
         }
      },
      "test" : {
         "requires" : {
            "Test::Deep" : 0,
            "Test::Fatal" : 0,
            "Test::More" : "0.98"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "bugtracker" : {
         "web" : "https://github.com/melo/async-hooks/issues"
      },
      "homepage" : "http://search.cpan.org/dist/Async-Hooks/",

META.yml  view on Meta::CPAN

---
abstract: 'Hook system with asynchronous capabilities'
author:
  - 'Pedro Melo <melo@cpan.org>'
build_requires:
  Test::Deep: 0
  Test::Fatal: 0
  Test::More: 0.98
configure_requires:
  ExtUtils::MakeMaker: 6.30
dynamic_config: 0
generated_by: 'Dist::Zilla version 4.300002, CPAN::Meta::Converter version 2.112621'
license: artistic_2
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Async-Hooks

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker 6.30;



my %WriteMakefileArgs = (
  "ABSTRACT" => "Hook system with asynchronous capabilities",
  "AUTHOR" => "Pedro Melo <melo\@cpan.org>",
  "BUILD_REQUIRES" => {
    "Test::Deep" => 0,
    "Test::Fatal" => 0,
    "Test::More" => "0.98"
  },
  "CONFIGURE_REQUIRES" => {
    "ExtUtils::MakeMaker" => "6.30"
  },
  "DISTNAME" => "Async-Hooks",
  "EXE_FILES" => [],
  "LICENSE" => "artistic_2",
  "NAME" => "Async::Hooks",
  "PREREQ_PM" => {

dist.ini  view on Meta::CPAN

[CheckChangeLog]

[Prereqs]
Carp = 0
Mo = 0.30
namespace::clean = 0

[Prereqs / TestRequires]
Test::More = 0.98   ;; minimum version for proper done_testing() support
Test::Deep = 0
Test::Fatal = 0

[@Git]
[Git::NextVersion]

t/10-ctl.t  view on Meta::CPAN

#!perl

use strict;
use warnings;
use Test::More;
use Test::Deep;
use Test::Fatal;
use Async::Hooks::Ctl;

my %called;
sub reset_called { %called = () }

sub mark1 {
  $called{'mark1'}++;
  return $_[0]->decline;
}

t/20-hooks.t  view on Meta::CPAN

#!perl

use strict;
use warnings;
use Test::More;
use Test::Deep;
use Test::Fatal;

use Async::Hooks;

subtest 'registry tests' => sub {
  my $nc = Async::Hooks->new;
  ok($nc);
  my $r = $nc->registry;
  ok($r);
  is(ref($r),     'HASH');
  is(scalar(%$r), 0);