view release on metacpan or  search on metacpan

examples/adapter-deferred-array-styled.pl  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
{
package DeferredArray;
use parent qw(Adapter::Async::OrderedList::Array);
use Tickit::DSL qw(:async);

sub defer_by(&$) {
	my ($code, $delay) = @_;
	my $f = loop->new_future;
	tickit->timer(
		after => $delay,
		sub { $f->done($code->()) }
	);
	$f
}

sub get {

examples/adapter-deferred-array.pl  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
{
package DeferredArray;
use parent qw(Adapter::Async::OrderedList::Array);
use Tickit::DSL qw(:async);

sub defer_by(&$) {
	my ($code, $delay) = @_;
	my $f = loop->new_future;
	tickit->timer(
		after => $delay,
		sub { $f->done($code->()) }
	);
	$f
}

sub get {