my $order_obj  = Foo::Order->new;
my $orders     = $order_obj->by_date( $date );

foreach my $order ( @$orders ) {
    my $items = $order->items; # arrayref of item objects
    my $total = $order->total; # returns a value
    # do more stuff
}

##</code><code>##

sub delete_me {
  my $self = shift;

  my $sql = "DELETE FROM $self->{_table} WHERE $self->{_id_name} = ?";
  return $self->{_dbh}->execute( $sql, $self->{_id_value} );
}