File Coverage

blib/lib/Parse/Number/EN.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	25	25	100.0

package Parse::Number::EN;

our $DATE = '2016-06-14'; # DATE
our $VERSION = '0.07'; # VERSION

# TODO: make it OO and customize thousand sep & decimal point

use 5.010001;
use strict;
use warnings;

use Exporter qw(import);
our @EXPORT_OK = qw($Pat parse_number_en);

our %SPEC;

#our $Pat = qr/(?:
#                  [+-]?
#                  (?:
#                      (?:\d{1,3}(?:[,]\d{3})+ | \d+) (?:[.]\d*)? | # english
#                      [.]\d+
#                  )
#                  (?:[Ee][+-]?\d+)?
#              )/x;

# non /x version
our $Pat = '(?:[+-]?(?:(?:\d{1,3}(?:[,]\d{3})+|\d+)(?:[.]\d*)?|[.]\d+)(?:[Ee][+-]?\d+)?)';

$SPEC{parse_number_en} = {
    v => 1.1,
    summary => 'Parse number from English text',
    description => <<'_',

This function can parse number with thousand separators (e.g. 10,000).

In the future percentage (e.g. 10.2%) and fractions (e.g. 1/3, 2 1/2) might also
be supported.

_
    args    => {
        text => {
            summary => 'The input text that contains number',
            schema => 'str*',
            req => 1,
            pos => 0,
        },
    },
    result_naked => 1,
};
sub parse_number_en {
    my %args = @_;
    my $text = $args{text};

    return undef unless $text =~ s/^\s*($Pat)//s;
    my $n = $1;
    $n =~ s/,//g;
    $n+0;
}

1;
# ABSTRACT: Parse number from English text

__END__