Commit | Line | Data |
4f8ce9da |
1 | package ExtraInheritedGroups; |
2 | use strict; |
3 | use warnings; |
4 | use base 'Class::Accessor::Grouped'; |
5 | |
6 | __PACKAGE__->mk_group_accessors('inherited', 'basefield'); |
7 | __PACKAGE__->set_inherited (basefield => 'your extra base!'); |
8 | |
9 | 1; |