Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
0
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,
(Updated )
Характерная такая профдеформация для человека много работающего с SQL.