Acme::Currency - There are other currencies beside $$$

  use Acme::Currency;

  €scalar   = "string\n";
  @array    = 1..10;
  €array[2] = 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.

Filter::Simple

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.