File Coverage

blib/lib/EntityModel/EventLoop/Perl.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	2	2	100.0
total	21	21	100.0

package EntityModel::EventLoop::Perl;
{
  $EntityModel::EventLoop::Perl::VERSION = '0.001';
}
# ABSTRACT: Pure-Perl event loop implementation
use EntityModel::Class {
	_isa => [qw(EntityModel::EventLoop)],
};
use Time::HiRes ();

=head1 NAME

EntityModel::EventLoop::Perl - basic Perl implementation for EntityModel 'event loop'

=head1 VERSION

version 0.001

=head1 DESCRIPTION

Used only for testing in the absence of a real event loop.

=head1 METHODS

=cut

=head2 defer

'Defers' execution of the given codeblock. Actually does nothing of the sort, it just runs the
code immediately.

=cut

sub defer {
	my $self = shift;
	my $code = shift;
	$code->();
	$self;
}

=head2 sleep

Runs the given code block after an interval. Blocks execution until the timer expires.

Instance method which expects an interval (in seconds) and a single coderef.

=cut

sub sleep {
	my $self = shift;
	my ($interval, $code) = @_;
	Time::HiRes::sleep $interval;
	$code->();
	return $self;
}

1;

__END__