sub items { goto &orderitems; }
sub add_items { goto &add_orderitems; }
+sub record_number { goto &number; }
sub type {
my $self = shift;
die 'invalid type';
}
+sub displayable_name {
+ join ' ', grep $_, map $_[0]->$_, qw(displayable_type record_number);
+};
sub is_sales {
croak 'not an accessor' if @_ > 1;