Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Season's Greetings

by silent11 (Vicar)
on Dec 21, 2008 at 20:40 UTC ( #731916=poem: print w/replies, xml ) Need Help??

#!/usr/bin/perl while (our $year, $is, $ending){ my $wish, 2, @all_monks; @ISA, "Merry Christmas" or "Happy Hanukkah" or "Whatever" for @all_monks +; } continue { 2; join('me this', @$year) and bless \@all_monks, 'EveryWhere'; "With Season's Greetings"; } until ('next year') { "-Silent11" }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://731916]
Approved by ikegami
Front-paged by Arunbear
[ambrus]: Corion: what I don't understand is, if you make a one-shot AnyEvent timer with short timeout, does this code guarantee that the Prima timer can't queue two timeout events before invoking any of them?
[ambrus]: Because that could break AnyEvent code, which is why I added a guard.
[ambrus]: (It might be easier to use the callback scalar as a guard, as in $c and &$c(); $c = ();)
[Corion]: ambrus: Hurr - yes, that might happen, as Prima will queue lots of stuff (Well, Windows will)
[Corion]: But I'm really amazed that it just took this little code (plus the idle handler I have in mind and something else dk suggested)
[Corion]: ambrus: I wrote the handler so that it stops the timer if it's supposed to be a one-shot

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (9)
As of 2016-12-09 09:03 GMT
Find Nodes?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:

    Results (150 votes). Check out past polls.