55 lines
1.4 KiB
Perl
55 lines
1.4 KiB
Perl
|
package DDG::GoodieRole::NumberStyler;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Moo::Role;
|
||
|
|
use DDG::GoodieRole::NumberStyle;
|
||
|
|
|
||
|
|
use List::Util qw( all first );
|
||
|
|
|
||
|
|
# If it could fit more than one the first in order gets preference.
|
||
|
|
my @known_styles = (
|
||
|
|
DDG::GoodieRole::NumberStyle->new({
|
||
|
|
id => 'perl',
|
||
|
|
decimal => '.',
|
||
|
|
thousands => ','
|
||
|
|
}
|
||
|
|
),
|
||
|
|
DDG::GoodieRole::NumberStyle->new({
|
||
|
|
id => 'euro',
|
||
|
|
decimal => ',',
|
||
|
|
thousands => '.',
|
||
|
|
}
|
||
|
|
),
|
||
|
|
);
|
||
|
|
|
||
|
|
# This is not as good an idea as I might think.
|
||
|
|
# Luckily it will someday be able to be tokenized so this won't apply.
|
||
|
|
my $all_seps = join('', map { $_->decimal . $_->thousands } @known_styles);
|
||
|
|
|
||
|
|
sub number_style_regex {
|
||
|
|
return qr/[\d$all_seps]+/;
|
||
|
|
}
|
||
|
|
|
||
|
|
# Takes an array of numbers and returns which style to use for parse and display
|
||
|
|
# If there are conflicting answers among the array, will return undef.
|
||
|
|
sub number_style_for {
|
||
|
|
my @numbers = @_;
|
||
|
|
|
||
|
|
my $style; # By default, assume we don't understand the numbers.
|
||
|
|
|
||
|
|
STYLE:
|
||
|
|
foreach my $test_style (@known_styles) {
|
||
|
|
if (all { $test_style->understands($_) } @numbers) {
|
||
|
|
# All of our numbers fit this style. Since we have them in preference order
|
||
|
|
# we can pick it and move on.
|
||
|
|
$style = $test_style;
|
||
|
|
last STYLE;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return $style;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|