[scpubgit/Tak.git] / lib / Tak.pm

package Tak;

use Tak::Loop;
use strictures 1;

our $loop;

sub loop { $loop ||= Tak::Loop->new }

sub loop_until {
  my ($class, $done) = @_;
  return if $done;
  my $loop = $class->loop;
  $loop->loop_once until $_[1];
}

1;
Commit	Line	Data
31a246e4	1	package Tak;
	2
	3	use Tak::Loop;
	4	use strictures 1;
	5
	6	our $loop;
	7
	8	sub loop { $loop \|\|= Tak::Loop->new }
	9
	10	sub loop_until {
	11	my ($class, $done) = @_;
	12	return if $done;
	13	my $loop = $class->loop;
	14	$loop->loop_once until $_[1];
	15	}
	16
	17	1;