use Scalar::Util qw< looks_like_number >;
use Test::More tests => 6;

ok looks_like_number '1';
ok looks_like_number '123';
ok looks_like_number '-123';
ok looks_like_number '1.0';
ok looks_like_number '123.0';
ok looks_like_number '-123.0';