$VERSION = '1.05';

    foreach my $name ( keys %constants ) {
        unless (defined $name) {
            require Carp;
            Carp::croak("Can't use undef as constant name");
        }
        ...
    }