sub isUV {
    my( $i )= @_; 
    return  isIntVal($i) &&  $i == (0|$i);
}

##</code><code>##

sub isNVint {
    my( $i )= @_;
    return  isIntVal($i)  &&  $i == int($i);
}

##</code><code>##

sub isInt {
    my( $i )= @_;
    return  $i =~ /^-?\d+\z/;
}

##</code><code>##

sub isIntVal {
    my( $i )= @_;
    return  $i =~ /^\s*[-+]?\d+\s*$/;
}

##</code><code>##

sub isIntVal2 {
    my( $i )= @_;
    my $warn= 0;
    {
        local( $^W )= 1;
        # my $warn= 0;
        local( $SIG{__WARN__} )= sub { $warn++ };
        $i= 0+$i;
    }
    return  ! $warn  &&  int($i) == $i;
}