package Range::Validator;

use 5.006;
use strict;
use warnings;

use Carp;									# --- new line

our $VERSION = '0.01';

sub validate{
	my $range;
	my @range;
	# assume we have a string if we receive only one argument
	if ( @_ == 1){
		$range = $_[0];
	}
	# otherwise we received a list
	else{
		...
	}
	# remove any space from string
	$range =~ s/\s+//g;						# --- new line
	# die if invalid characters
	croak "invalid character passed in string [$range]!" 
			if $range =~ /[^\s,.\d]/;		# --- new line
	
	@range = eval ($range);					# --- new line
	return @range;
}

1;