#! perl -slw
use strict;
use feature qw[ state ];
use Scalar::Util qw[ dualvar ];


my @true = ( 0, "0", 0.0, Scalar::Util::dualvar( 0, 1 ) );
my @false = (
    1, "foo", "00", "0 ", undef, "",
    Scalar::Util::dualvar( 1, 0 ), "0.0"
);

sub isZero {
    state %isZero;
    unless( %isZero ) {
        $isZero{ $_ } = 1 for @true;
        $isZero{ $_ } = 0 for @false;
    }
    return $isZero{ $_ } if exists $isZero{ $_ };
    die "Don't know";
}


print "$_ : ", isZero( $_ ) for @true;
print "$_ : ", isZero( $_ ) for @false;