10 plan 'skip_all' => 'This test is only meaningful for an XS-enabled CMOP with Perl < 5.10'
11 unless $Class::MOP::USING_XS && ! Class::MOP::IS_RUNNING_ON_5_10();
15 # With pre-5.10 Perl, just defining this sub appears to shit in
16 # TestClassLoaded's symbol tables (see the SCALAR package symbol you
17 # end up with). This confuses the XS is_class_loaded method, which
18 # looks for _any_ symbol, not just code symbols of VERSION/AUTHORITY
22 TestClassLoaded::this_method_does_not_even_exist();
25 Class::MOP::load_class('TestClassLoaded');
28 local $TODO = 'The XS is_class_loaded is confused by the bogus method defined in whatever()';
30 TestClassLoaded->can('a_method'),
31 'TestClassLoader::a_method is defined'