7 $^P &= ~0x200; # Don't munger anonymous sub names
8 if ( eval 'use Sub::Name qw(subname); 1;' ) {
12 plan skip_all => 'These tests require Sub::Name';
16 BEGIN { use_ok("Class::MOP") }
19 sub code_name_is ($$$;$) {
20 my ( $code, $stash, $name, $desc ) = @_;
21 $desc ||= "sub name is ${stash}::$name";
24 [ Class::MOP::get_code_info($code) ],
30 code_name_is( sub {}, main => "__ANON__" );
32 code_name_is( subname("Foo::bar", sub {}), Foo => "bar" );
34 code_name_is( subname("", sub {}), "main" => "" );
36 require Class::MOP::Method;
37 code_name_is( \&Class::MOP::Method::name, "Class::MOP::Method", "name" );