sub items { goto &orderitems; }
+sub items_sorted {
+ my ($self) = @_;
+
+ my @sorted = sort {$a->id <=> $b->id } @{ $self->items };
+ return wantarray ? @sorted : \@sorted;
+}
+
sub type {
my $self = shift;
return $self->${ \ $number_method{$self->type} }(@_);
}
+sub date {
+ goto &transdate;
+}
+
1;
__END__