view release on metacpan or  search on metacpan

lib/App/ElasticSearch/Utilities.pm  view on Meta::CPAN

    }

    return sprintf "%0.2f %s", $size, $unit;
}


sub es_format_numeric {
    my($v,$len) = @_;
    $len ||= 3;

    # If this looks like a number, format it
    if ( $v =~ /^([0-9]+)\.(0*)[0-9]*$/ ) {
        my $ints   = length($1);
        my $zeroes = length($2);
        my $precision = $len + $zeroes - $ints;
        $v = $ints > $len    ? int($v)
            : $precision > 0 ? sprintf("%0.${precision}f",$v)
            : $v;
    }

    return $v;