NAME Pointy::Counter - funny syntax for loops SYNOPSIS use Pointy::Counter; my $i = counter; while ($i --> 10) { say "\$i is $i"; } # says $i is 1 # says $i is 2 # ... # says $i is 10 DESCRIPTION Pointy::Counter is a class that provides objects which seem to act like numbers, but have a special `-->` operator to count up to a particular value. OK, confession time... `-->` is not really an operator. It's a post-increment followed by a greater than sign. $i --> 10 is parsed by Perl like: ($i--) > 10 Then the Pointy::Counter class overloads `--` to increment rather than decrement, and overloads `>` to act as a less-than. If you try to perform any other maths, it should just act as a normal scalar. In particular, note that this means that while `$i--` will do a counter increment; `$i -= 1` will act completely differently, decrementing the counter and restoring it to a normal Perl scalar. Constructor `Pointy::Counter->new($initial)` Creates a new counter, with the initial value (defaults to 0). Note that the counter will have value $initial before the loop starts, but within the body of the loop, it will be `$initial+1`, `$initial+2`, etc. `counter $initial` This module exports a function which can be called as a shortcut for the constructor. Methods `value` Returns current value as a plain old Perl scalar. This is an lvalue subroutine, so you can, for example, reset a counter using: $i->value = 0; `continue` Really does decrement the counter. This is used to solve a small niggling problem: my $x = counter; while ($x --> 2) { say "Counter is $x (loop A)"; } while ($x --> 4) { say "Counter is $x (loop B)"; } Will output: Counter is 1 (loop A) Counter is 2 (loop A) Counter is 4 (loop B) Why doesn't it output a line for when its value is 3? That's because it only takes the value 3 *between* the two loops. The solution is to decrement the counter before starting loop B: my $x = counter; while ($x --> 2) { say "Counter is $x (loop A)"; } $x -> continue; while ($x --> 4) { say "Counter is $x (loop B)"; } This gives you: Counter is 1 (loop A) Counter is 2 (loop A) Counter is 3 (loop B) Counter is 4 (loop B) BUGS Please report any bugs to . SEE ALSO overload, perlsyn. AUTHOR Toby Inkster . COPYRIGHT AND LICENCE This software is copyright (c) 2011 by Toby Inkster. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. DISCLAIMER OF WARRANTIES THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.