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 delete $ENV{$_} for grep /^PERL5?DB/, keys %ENV;
22 $ENV{PERLDB_OPTS} = 'NonStop noTTY';
36 BEGIN { *baz = sub { 42 } }
47 ok( !Foo->can("foo"), "foo cleaned up" );
48 ok( !Foo->can("baz"), "baz cleaned up" );