sponsored by Three Rings.
- This Mason component simply defines how to interpret capital.
+ This Mason component simply defines how to interpret amounts of poe.
</%doc>
$_= $string;
s/^\s+//; s/\s+$//;
-my $capital;
+my $poe;
my $canon;
if (!m/\S/) {
$canon= '';
-} elsif (m/^([1-9]\d*)( PoE)?$/i) {
- $capital= $1;
- $canon= "$capital PoE";
+} elsif (m/^([1-9]\d*|0)( PoE)?$/i) {
+ $poe= $1;
+ $canon= "$poe PoE";
} else {
- expected_error("Cannot understand capital ".escerrq($_).".");
+ expected_error("Cannot understand poe amount ".escerrq($_).".");
}
-return ($canon,$capital);
+return ($canon,$poe);
</%perl>
</%method>