Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    my $toggle = create_toggle;
    
    print $toggle->()."\n" for 1..10;
    
  2. or download this
    use strict;
    use warnings;
    ...
    my $toggle = new Toggler;
    
    print $toggle->()."\n" for 1..10;