sub outstanding_debits {
my ($self) = @_;
- my $lines = $self->lines->search(
+ return $self->lines->search(
{
+ amount => { '>' => 0 },
amountoutstanding => { '>' => 0 }
}
);
-
- return $lines;
}
=head3 outstanding_credits
sub outstanding_credits {
my ($self) = @_;
- my $lines = $self->lines->search(
+ return $self->lines->search(
{
+ amount => { '<' => 0 },
amountoutstanding => { '<' => 0 }
}
);
-
- return $lines;
}
=head3 non_issues_charges