4 push @DB::typeahead, "c", "q";
6 # try to shut it up at least a little bit
7 open my $out, ">", \my $out_buf;
9 open my $in, "<", \my $in_buf;
16 BEGIN { *baz = sub { 42 } }
27 use Test::More tests => 5;
29 ok( !Foo->can("foo"), "foo cleaned up" );
30 ok( !Foo->can("baz"), "baz cleaned up" );