5 use B qw/svref_2object/;
7 use_ok('Class::Accessor::Grouped');
9 # ensure core accessor types are properly named
11 for (qw/simple inherited component_class/) {
12 for my $meth ("get_$_", "set_$_") {
13 my $cv = svref_2object( Class::Accessor::Grouped->can($meth) );
14 is($cv->GV->NAME, $meth, "$meth accessor is named");
15 is($cv->GV->STASH->NAME, 'Class::Accessor::Grouped', "$meth class correct");