6 plan skip_all => "Package::Stash required for this test"
7 unless eval { require Package::Stash };
9 require MRO::Compat if $] < 5.009_005;
13 package AccessorGroups::Clean;
16 use base 'Class::Accessor::Grouped';
19 for (qw/simple inherited component_class/) {
20 __PACKAGE__->mk_group_accessors($_ => "${_}_a");
21 $obj->${\ "${_}_a"} ('blah');
27 { %{Package::Stash->new($_)->get_all_symbols('CODE')} }
28 (reverse @{mro::get_linear_isa('AccessorGroups::Clean')})
31 (map { ( "$_", "_${_}_accessor" ) } qw/simple_a inherited_a component_class_a/ ),
32 (map { ( "get_$_", "set_$_" ) } qw/simple inherited component_class/ ),
37 make_group_ro_accessor
38 make_group_wo_accessor
45 'Expected list of methods in a freshly inheriting class';