4 require namespace::clean;
6 namespace::clean::_Util::DEBUGGER_NEEDS_CV_RENAME()
8 my $missing_xs = namespace::clean::_Util::_namer_load_error()
10 plan skip_all => $missing_xs;
18 # shut up the debugger
19 $ENV{PERLDB_OPTS} = 'NonStop';
33 BEGIN { *baz = sub { 42 } }
44 ok( !Foo->can("foo"), "foo cleaned up" );
45 ok( !Foo->can("baz"), "baz cleaned up" );