File Coverage

blib/lib/Data/Clean/ToStringyNumber.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition	1	2	50.0
subroutine	7	7	100.0
pod	2	3	66.6
total	30	32	93.7

package Data::Clean::ToStringyNumber;

our $DATE = '2016-04-14'; # DATE
our $VERSION = '0.04'; # VERSION

use 5.010001;
use strict;
use warnings;

use parent qw(Data::Clean);

sub command_replace_with_stringy_number {
    require Scalar::Util::LooksLikeNumber;

    my ($self, $args) = @_;
    return '{{var}} = defined({{var}}) && Scalar::Util::LooksLikeNumber::looks_like_number({{var}}) > 36 ? "{{var}}" : {{var}}';
}

sub new {
    my ($class, %opts) = @_;
    $opts{""} //= ['replace_with_stringy_number'];
    $class->SUPER::new(%opts);
}

sub get_cleanser {
    my $class = shift;
    state $singleton = $class->new;
    $singleton;
}

1;
# ABSTRACT: Convert non-stringy numbers in data to stringy numbers

__END__