More Code 

use base qw(Class::Accessor::Fast);