This works as expected:
#!/usr/bin/perl -wl use strict; { my $count = 0; sub counter : lvalue { ++$count } } print counter() for 1..5; print counter() = -5; print counter() for 1..5;
In reply to RE: RE: RE: Re: Subroutine as an lvalue?
by takshaka
in thread Subroutine as an lvalue?
by xeh007
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |