Help for this page

Select Code to Download


  1. or download this
    use warnings;
    use strict;
    ...
    is($activity->()->($person->()), 'sally likes to play', 'sally,play');
    is($activity->()->($person->()), 'henry likes to eat',  'henry,eat');
    is($activity->()->($person->()), 'tom likes to nap',    'tom,nap');
    
  2. or download this
    >perl cyclic_array_iter_1.pl
    ok 1 - person: tom
    ...
    ok 19 - henry,eat
    ok 20 - tom,nap
    1..20