gistfile1.PL

class Foo {
  has @.internal;
  method each (&block) {
    my $i = 0;
    loop {
      last if $i >= +@.internal;
      &block(@.internal[$i]);
      $i++;
    };

    say 'done interating';
  }
}


my $a = Foo.new(internal => (1, 2, 3));
$a.each(-> $a {
  say $a;
});

# vim: ft=perl6