use base qw(Class::Accessor Class::Fields); use fields qw(id dir_base url_base dir_tmp conf); __PACKAGE__->mk_accessors(__PACKAGE__->show_fields('Public')); #### use base qw(My::Abstract::Class); use fields qw(dir blast_input blast_output t_result_thumb t_result_image t_region_thumb t_mview t_mview_thumb t_parsed_result); use fields qw(temp_out temp_in); use fields qw(url blast_output_url t_result_thumb_url t_result_image_url t_region_thumb_url t_mview_thumb_url); __PACKAGE__->mk_accessors(__PACKAGE__->show_fields('Public')); #### Field name 'temp_out' already in use at /usr/lib/perl5/5.6.1/fields.pm line 34 BEGIN failed--compilation aborted at My::Config::Thing line 14. Compilation failed in require at /usr/lib/perl5/site_perl/5.6.1/Apache/Reload.pm line 132.