Текст:: PromptBalanced помогает в создании подсказок CLI, которые отслеживают балансированный текст.

РЕЗЮМЕ

используйте Текст:: PromptBalanced потенциальная яма (balance_factory);
($state, $balance) = balance_factory (
натяните => {тип => переключатель, открытый => "},
paren => {
напечатайте => балансированный, открытый => (закройтесь =>), ignore_in => строка},
прокомментируйте => {тип => eol, открытый =>; ignore_in => натягивают},
выйдите => {тип => escape, открытый =>}
);
в то время как (<STDIN>) {
мой $cur_balance = $balance->($ _);
если ($state-> {строка} == 1) {печатают q [">]}
elsif ($state-> {paren}> 0) {печатают qq [($cur_balance>]}
elsif ($cur_balance <0)
{предупреждают "Неуравновешенный paren в символе $cur_balance"}
еще {печатают q [0>]}
}