t/lib/AccessorGroupsComp.pm

   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;