# methods
-sub items { goto &orderitems; }
-sub payment_terms { goto &payment; }
+sub items { goto &orderitems; }
sub type {
my $self = shift;
sub is_sales {
croak 'not an accessor' if @_ > 1;
- return shift->customer_id;
+ return !!shift->customer_id;
}
sub invoices {