perl - 新しい慣用句と再帰レベルの検出方法

Question

これは正確な質問ではありません。私は新しい慣用句を発明したと思います - エレガントな言い方: 何かをして、失敗したら、それを修正して、もう一度やり直してください。3回失敗したらギブアップ。見た目は良いですか？

use strict;

write_file('lol');
write_file('abc');
write_file('def');
write_file('ijk');

my $depth;
sub write_file
{
  if ( $depth++ > 3 ) { die 'FAIL' };
  print FILE $depth.join ', ', @_  or open(FILE, '>log'), write_file(@_);
  $depth = 0;
}