sub is_integer {
  $_[0] =~ /^-?\d+\z/;
}