6 # apparently we can't just skip_all with -d, because the debugger breaks at
7 # Test::Testers END block
13 push @DB::typeahead, "c";
16 push @DB::typeahead, "q";
18 # try to shut it up at least a little bit
19 open my $out, ">", \my $out_buf;
21 open my $in, "<", \my $in_buf;
28 BEGIN { *baz = sub { 42 } }
39 ok( !Foo->can("foo"), "foo cleaned up" );
40 ok( !Foo->can("baz"), "baz cleaned up" );