#!/usr/bin/perl -w

use Test;
BEGIN { plan tests => 3 }

use Inline Ruby;
use strict;

sub a {
    my ($i, $n) = @_;
    ok($i);
    print "Elapsed: $n\n";
}

invoke_wait(0.1, \&a, \&{"main::a"}, \&a);

__END__
__Ruby__

def invoke_wait(t, *procs)
  n = 0;
  i = 0;
  procs.each { |pr|
    i = i + 1
    n = n + sleep(t)
    p pr
    pr.call(i, n)
  }
end