Async-MergePoint

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use strict;
use warnings;

use Module::Build;

my $build = Module::Build->new(
   module_name => 'Async::MergePoint',
   build_requires => {
      'Test::Fatal' => 0,
      'Test::More' => 0,
   },
   auto_configure_requires => 0, # Don't add M::B to configure_requires
   license => 'perl',
   create_makefile_pl => 'traditional',
   create_license => 1,
   create_readme  => 1,
);

$build->create_build_script;

Changes  view on Meta::CPAN

Revision history for Async-MergePoint

0.04    CHANGES:
         * use Test::Fatal instead of Test::Exception

0.03    CHANGES:
         * use warnings
         * Allow setting 'on_finished' handler after creation; allow extending
           the 'needs' keys until then.
         * Various small updates to keep CPANTS happy

0.02    BUGFIXES:
         * Remember to rename IO::Async::MergePoint as Async::MergePoint in
           test scripts

META.json  view on Meta::CPAN

      "perl_5"
   ],
   "meta-spec" : {
      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
      "version" : "2"
   },
   "name" : "Async-MergePoint",
   "prereqs" : {
      "build" : {
         "requires" : {
            "Test::Fatal" : 0,
            "Test::More" : 0
         }
      }
   },
   "provides" : {
      "Async::MergePoint" : {
         "file" : "lib/Async/MergePoint.pm",
         "version" : "0.04"
      }
   },

META.yml  view on Meta::CPAN

---
abstract: 'resynchronise diverged control flow'
author:
  - 'Paul Evans <leonerd@leonerd.org.uk>'
build_requires:
  Test::Fatal: 0
  Test::More: 0
dynamic_config: 1
generated_by: 'Module::Build version 0.38, CPAN::Meta::Converter version 2.110930'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Async-MergePoint
provides:
  Async::MergePoint:

Makefile.PL  view on Meta::CPAN

# Note: this file was auto-generated by Module::Build::Compat version 0.3800
use ExtUtils::MakeMaker;
WriteMakefile
(
          'NAME' => 'Async::MergePoint',
          'VERSION_FROM' => 'lib/Async/MergePoint.pm',
          'PREREQ_PM' => {
                           'Test::Fatal' => 0,
                           'Test::More' => 0
                         },
          'INSTALLDIRS' => 'site',
          'EXE_FILES' => [],
          'PL_FILES' => {}
        )
;

t/01mergepoint.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;

use Test::More tests => 9;
use Test::Fatal;

use Async::MergePoint;

ok( exception { Async::MergePoint->new( needs => "hello", on_finished => sub { "DUMMY" } ) },
    'needs not ARRAY' );

ok( exception { Async::MergePoint->new( needs => ['foo'], on_finished => "goodbye" ) },
    'on_finished not CODE' );

my %items;

t/02lateclose.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;

use Test::More tests => 5;
use Test::Fatal;

use Async::MergePoint;

my $merge = Async::MergePoint->new( needs => [qw( foo )]);
ok( defined $merge, 'MergePoint created' );

$merge->done( 'foo' );

my $done;
$merge->close( on_finished => sub { $done = 1 } );

t/03lateneeds.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;

use Test::More tests => 5;
use Test::Fatal;

use Async::MergePoint;

my $merge = Async::MergePoint->new();
ok( defined $merge, 'Empty MergePoint created' );

my $done;
$merge->close( on_finished => sub { $done = 1 } );

is( $done, 1, 'Closing a null MergePoint fires callback' );