is(*{::feh}{CODE}, undef, 'feh isn\'t defined');
is(*{::feh}{CODE}, undef, 'feh isn\'t defined, really');
isnt(*{::yay}{CODE}, undef, 'yay is defined');
isnt(*{::foo}{CODE}, undef, 'foo is defined'); # calls foo
is($foo, '::foo', 'foo was called');
is(*{::flip}{CODE}, undef, 'flip isn\'t defined');
is(*{::feh}{CODE}, undef, 'feh isn\'t defined');
is(*{::feh}{CODE}, undef, 'feh isn\'t defined, really');
isnt(*{::yay}{CODE}, undef, 'yay is defined');
isnt(*{::foo}{CODE}, undef, 'foo is defined'); # calls foo
is($foo, '::foo', 'foo was called');
is(*{::flip}{CODE}, undef, 'flip isn\'t defined');