Tekst:: De hulp van PromptBalanced in het creëren van CLI herinneringen die spoor van evenwichtige teksten houden.

SYNOPSIS

gebruiks Tekst:: PromptBalanced qw (balance_factory);
($state, $balance) = balance_factory (
koord => {type=> knevel, open => „},
paren => {
typ => evenwichtig, open koord => (, dichte =>), ignore_in =>},
commentaar => {type => eol, open =>; , ignore_in koord =>},
vlucht => {type=> vlucht, open =>}
);
terwijl (< STDIN >) {
mijn $cur_balance = $balance-> ($_);
als ($state-> {koord} ==1) {druk q [„>]}
elsif ($state-> {paren} > 0) {druk qq [($cur_balance>]}
elsif ($cur_balance < 0)
{waarschuw „Uit zijn evenwicht gebracht bij karakter $cur_balance“ paren}
anders {druk q [0>]}
}