4 plan skip_all => 'Only applicable on perl >= 5.8.9'
11 push @DB::typeahead, "c", "q";
13 # try to shut it up at least a little bit
14 open my $out, ">", \my $out_buf;
16 open my $in, "<", \my $in_buf;
23 BEGIN { *baz = sub { 42 } }
34 ok( !Foo->can("foo"), "foo cleaned up" );
35 ok( !Foo->can("baz"), "baz cleaned up" );