use strict;
use warnings;
use Data::Types ':whole';

for (0, -1, 17, 1.25, 1e6, 062, 0xDEADBEEF, 4.0, 5.)
{
    printf "%10s: %s\n", $_, is_whole($_) ? 'yes' : 'no';
}