6 use Test::More tests => 1;
9 # Just defining this sub appears to shit in TestClassLoaded's symbol
10 # tables (see the SCALAR package symbol you end up with).
11 # This confuses the XS is_class_loaded method, which looks for _any_
12 # symbol, not just code symbols of VERSION/AUTHORITY etc.
15 TestClassLoaded::this_method_does_not_even_exist()
18 Class::MOP::load_class('TestClassLoaded');
21 local $TODO = 'Borked';
22 ok(TestClassLoaded->can('a_method'),
23 'TestClassLoader::a_method is defined');