Commit | Line | Data |
18026fd5 |
1 | package AccessorGroupsComp; |
2 | use strict; |
3 | use warnings; |
4 | use base 'Class::Accessor::Grouped'; |
5 | |
6 | __PACKAGE__->mk_group_accessors('component_class', 'result_class'); |
7 | |
8 | sub new { |
9 | return bless {}, shift; |
10 | }; |
11 | |
12 | 1; |