Select Code to Download

my $order_obj  = Foo::Order->new;
my $orders     = $order_obj->by_date( $date );
...
    my $total = $order->total; # returns a value
    # do more stuff
}

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