1. Perl / Говнокод #12124

    −86

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    sub change_credit_limit {
        my ($self, $new_limit) = @_;
    
        return 0 if ( !validate_credit_limit($new_limit) );
    
        my $credit_limit = $self->get_credit_limit();
        if ( sprintf('%.5f', $new_limit) eq sprintf('%.5f', $credit_limit) ) {
            return 1;
        }
    
        return $self->update({ 'credit_limit' => $new_limit });
    }

    Оптимизация, такая оптимизация. Не совсем говнокод, но подход оригинален :)

    P.S. Немного поменял оригинальные имена

    Запостил: Elvenfighter, 14 Ноября 2012

    Комментарии (2) RSS

    • не смешно
      Ответить
    • Похоже, код писал хардкорный DBA.
      Характерная такая профдеформация для человека много работающего с SQL.
      Ответить

    Добавить комментарий