lib/Tak.pm

   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;