Currency

use Currency;

# Given a currency string of the form "$24.12 USD" or "&EUR;20.86 EUR",

# split() will return the elements ready for calculations.

my ($currencySymbol, $price, $currency) = Currency::split( '$24 USD');

# billing() looks for a permanent cookie called "Billing Country". It must

# be of the form (AAA) Where AAA is the 3 character currency code (USD).

# If a from parameter is given the billing country is guaranteed to return

# USD or AUD if the from parameter is the same billing country.

my $billing_currency = Currency::billing();

my $billing_currency = Currency::billing( "USD");