#!/usr/bin/perl -w
package Math::Currency::GBP;
use Exporter;
use Math::Currency qw($LC_MONETARY $FORMAT);
use vars qw($VERSION @ISA $LANG);
$VERSION = 0.41;
$LANG = 'en_GB';
@ISA = qw(Exporter Math::Currency);
$LC_MONETARY->{GBP} = {
INT_CURR_SYMBOL => 'GBP ',
CURRENCY_SYMBOL => '£',
MON_DECIMAL_POINT => '.',
MON_THOUSANDS_SEP => ',',
MON_GROUPING => '3',
POSITIVE_SIGN => '',
NEGATIVE_SIGN => '-',
INT_FRAC_DIGITS => '2',
FRAC_DIGITS => '2',
P_CS_PRECEDES => '1',
P_SEP_BY_SPACE => '0',
N_CS_PRECEDES => '1',
N_SEP_BY_SPACE => '0',
P_SIGN_POSN => '1',
N_SIGN_POSN => '1',
};
1;
syntax highlighted by Code2HTML, v. 0.9.1