Acme::Currency - There are other currencies beside $$$
use Acme::Currency; scalar = "string\n"; @array = 1..10; array = 2; no Acme::Currency; print $scalar; # prints "string\n"; use Acme::Currency '¥'; ¥money = '¥1.12'; @time = ( ¥money, ¥and_I_mean_it ); # Just kidding or I wouldn't be writing this.
Why confine yourself to using the American Dollar as scalar-context sigil? There's a few currencies out there and in the age of internationalization and Unicode, there is no reason not to use them for our evil purposes.
This module uses a source filter to replace every occurrance of a given string in the source code with the $-sigil. That means using the @ in place of the Yen symbol should yield interesting arrays. (Or none at that.)
By default, using Acme::Currency will use the character as the scalar sigil.
None by default.
New versions on CPAN or http://steffen-mueller.net
Steffen Mueller, <currency-module at steffen-mueller dot net>
Copyright 2003-205, 2011 by Steffen Mueller
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.