1use
2    if (!eval { require namespace::autoclean; 1 }),
3    'Test::More', skip_all => "requires namespace::autoclean";
4use
5    if (!eval { require Sub::Identify; 1 }),
6    'Test::More', skip_all => "requires Sub::Identify";
7use Test::More;
8
9BEGIN { $ENV{PERL_MOOS_XS_DISABLE} = 1 };
10
11{
12    package Foos;
13    use Moos;
14    use namespace::autoclean;
15    has 'foo';
16}
17
18can_ok Foos => 'foo';
19
20is(
21    Sub::Identify::sub_fullname(Foos->can('foo')),
22    'Foos::foo',
23);
24
25done_testing;
26
27
28