has 'started' => ( traits => [qw/Bool Protected/], is => 'ro', isa => 'Bool', #predicate => 'hasGameStarted', handles => { startGame => 'set', }, ); sub hasGameStarted { my $self = shift; return defined $self->started; }