Help for this page
sub _build_net_income { my $self = shift; return $self->gross_income - $self->taxes; }
sub _build_net_income { my $self = shift; ... $taxes = 0 if $taxes < 0; return $gross - $taxes; }