package Restaurant::People; use strict; use warnings; use base qw( Restaurant::Util::Class ); use Carp; use Scalar::Util qw( blessed dualvar ); #### package Restaurant::People::Cook; use base qw( Restaurant::People ); #### package Restaurant::People::Cook; use base qw( Restaurant::People ); use Restaurant::Util::ToolSet;