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

Acme-Currency documentation Contained in the Acme-Currency distribution.

Index

Code Index:

NAME

Top

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

SYNOPSIS

Top

  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.

ABSTRACT

Top

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.

DESCRIPTION

Top

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.

EXPORT

None by default.

SEE ALSO

Top

Filter::Simple

New versions on CPAN or http://steffen-mueller.net

AUTHOR

Top

Steffen Mueller, <currency-module at steffen-mueller dot net>

COPYRIGHT AND LICENSE

Top

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.

Acme-Currency documentation Contained in the Acme-Currency distribution. 
package Acme::Currency;

use 5.006;
use strict;
use warnings;

use vars '$VERSION';
$VERSION = '3.01';

use Filter::Simple;

use vars '$String';
$String = '€';

FILTER_ONLY
 code =>
  sub {
     s/\Q$String\E/\$/g;
};

sub import {
   my $class = shift;
   my $str = shift;
   $String = $str if defined $str and $str !~ /^\s*$/;
}


1;
__END__