4 use Test::More tests => 13;
13 ok !Class1->can('cleaned1'), 'basic clean';
22 ok !Class1->can('cleaned2'), 'clean same class again';
35 ok !Class2->can('cleaned1'), 'basic clean before no';
36 ok +Class2->can('left1'), 'basic no clean';
37 ok !Class2->can('cleaned2'), 'basic clean after no';
50 ok !Class2->can('cleaned3'), 'clean again before no';
51 ok +Class2->can('left2'), 'clean again no clean';
52 ok !Class2->can('cleaned4'), 'clean again after no';
66 ok !Class3->can('cleaned3'), 'clean inner scope';
68 local $TODO = 'unable to differentiate scopes';
69 ok +Class3->can('cleaned1'), 'clean inner scope leaves outer';
71 ok +Class3->can('cleaned2'), 'clean inner scope leaves outer no';
77 ok !Class3->can('cleaned1'), 'clean after scoped';
78 ok +Class3->can('cleaned2'), 'no clean after scoped';