use warnings;
use strict;
use Benchmark qw/cmpthese/;
use Scalar::Util qw/looks_like_number/;

sub isNumber {
	@_ or return 0;
	my $N = shift;
	defined $N or return 0;
	my $R = 1;
	{
		local $SIG{__WARN__} = sub { $R = 0; };
		$N = int($N);
	}
	return $R;
}

cmpthese(-2, {
	isNumber => sub {
		isNumber("123") or die;
		isNumber("-5e7") or die;
		isNumber("abc") and die;
		isNumber("") and die;
	},
	looks_like_number => sub {
		looks_like_number("123") or die;
		looks_like_number("-5e7") or die;
		looks_like_number("abc") and die;
		looks_like_number("") and die;
	}
});

__END__

                       Rate          isNumber looks_like_number
isNumber           153840/s                --              -97%
looks_like_number 5991731/s             3795%                --