package Hero; use BTW::Class ( scalar => [qw( name nick strength )], array => [qw( friend woe )] ); ...