use strict;
use warnings;
use Test::More 0.88;

{
    package Foo;
    use constant CAT => 'kitten';
    BEGIN { our $DOG = 'puppy' }
    use constant DOG => 'puppy';
    use namespace::autoclean;
}

ok(Foo->can('CAT'), 'constant sub was not cleaned');
ok(Foo->can('DOG'), 'constant with existing glob entries was not cleaned');

done_testing;