Select Code to Download

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_ima
+ge 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_u
+rl 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.