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 http://rt.cpan.org/Dist/Display.html?Queue=Pointy-Counter.

AUTHOR

Toby Inkster <tobyink@cpan.org>.

COPYRIGHT AND LICENCE

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.