If I had the push, I would put coroutines or at least iterators into the Perl 5 core, like Coro provides them already (in a less portable, more restricted way). With at least iterators, you can easily avoid the "inversion of control" problem that arises as soon as you have or use a framework that either provides callbacks or provides call-in hooks, and you don't need to maintain state yourself (see the push/pull examples below).

Painless iterators:


sub i_produce {
  my ($start, $count) = @_;
  for my $i ($start..$start+$count) {
    yield $i;
  };
};

sub i_two_columns {
  while (defined (my $i = produce)) {
    print $i;
    if (defined (my $j = produce)) {
      print "\t$j";
    };
    print "\n";
  };
};

[download]

Perl way (push):

sub p_produce {
  my ($consumer, $start, $count) = @_;

  for my $i ($start..$start+$count) {
    $consumer->($i);
  };
};

{
  my $odd;

sub p_two_columns {
  # aieeee - need to maintain state
  $odd = ($odd + 1)%2;
};
};

[download]

Perl way (pull):


{
sub p_produce {
  my ($consumer, $_start, $_count) = @_;
  # aieee - need to maintain state:
  my $pos = $start;
  return sub {
    $pos < $start+$count ? $pos++ : undef
  };
};
};

sub i_two_columns {
  my ($produce) = p_produce(2,10);
  while (defined (my $i = $produce->())) {
    print $i;
    if (defined (my $j = $produce->())) {
      print "\t$j";
    };
    print "\n";
  };
};

[download]

In reply to Re: (Sort of) poll: what Perl6 features do you consider {likely,desirable} to leak into P5? by Corion
in thread (Sort of) poll: what Perl6 features do you consider {likely,desirable} to leak into P5? by blazar

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.