if ($self -> is_principal() || $self -> is_major_shareholder()) {
  $self -> concerned_with_long_term_costs(1);
} else {
  $self -> concerned_with_long_term_costs(0);
}

if (!$self -> concerned_with_long_term_costs()) {
  $self -> defer_to_boss(1);
}
[download]