B:: Utils is een helper functioneert voor op boommanipulatie.

SYNOPSIS

gebruik B:: Utils;


Deze functies maken het gemakkelijker om de op boom te manipuleren.

FUNCTIES

all_starts

all_roots

Komt een knoeiboel van alle aanvang ops of wortel ops van gesloten optrees, op subroutinenaam terug; optree voor hoofdprogramma wordt eenvoudig gesloten aan __MAIN.

Nota: Bepaalde „gevaarlijke“ geheime bergplaatsen worden niet afgetast voor subroutines: de lijst van dergelijke geheime bergplaatsen kan in @B worden gevonden:: Utils:: bad_stashes. Voel vrij om dit te onderzoeken en te wijzigen om uw behoeften aan te passen. De bedoeling is dat een eenvoudig programma dat geen modules buiten B en B: gebruikt: Utils zou geen toevoegingssymbolen tonen.

Dit keert niet de details van ops in anonieme die subroutines terug worden gecompileerd bij compileert tijd. Bijvoorbeeld, gegeven

$a = sub {…};

de subroutine zal niet in de knoeiboel verschijnen. Dit is just as well, sinds theyre anoniem… Als u bij hen wilt krijgen, gebruik…

anon_subs ()

Dit keert een serie van knoeiboelverwijzingen terug. Elk element heeft de sleutels „begin“ en „wortel“. Dit zijn de aanvang en de wortel ops van alle anonieme subroutines in het programma.

$op->oldname

Keert de naam van op terug, zelfs als het momenteel om wordt geoptimaliseerd nietig te verklaren. Dit helpt u de structuur van de op boom begrijpen.

$op->kids

Keert een serie van al dit ops niet-krachteloze kinderen, in orde terug.

$op->first
$op->last
$op->other

Normaal als u eerst roept, duur of andere op om het even wat die een geen UNOP, een BINOP of LOGOP is respectivly het zal sterven. Dit leidt tot veel code als:

$op->first als $op->can (eerst);

B:: Utils voorziet elke op van eerste, laatste en andere methodes die eenvoudig niets zullen terugkeren als het niet relevant is.

$op->parent

Keert de ouderknoop in de op boom terug, indien mogelijk. „Momenteel mogelijk“ betekent „als de boom reeds“ is geoptimaliseerd; namelijk als tijdens een blok van de CONTROLE waren. (en vandaar, als wij geldige volgende wijzers. hebben)

In de toekomst, kan het mogelijk zijn om naar de ouder te zoeken alvorens wij de volgende wijzers op zijn plaats hebben, maar itll neem me een tijdje te berekenen hoe te om dat te doen.

$op->previous

Als $op->next, maar niet helemaal.

walkoptree_simple ($op, &callback, [$data])

De module van B verstrekt diverse functies om de op boom te lopen, maar theyre allen eerder moeilijk te gebruiken, vereisend u om methodes in B in te spuiten:: OP klasse. Dit is een zeer eenvoudige op boomleurder met meer verwachte semantiek.

&callback bij elke die op met op geroepen zelf wordt binnen als eerste argument en om het even welke extra $data als de tweede wordt overgegaan.

Alle gangfuncties plaatsen $B:: Utils:: dossier en $B:: Utils:: lijn aan de aangewezen waarden van dossier en lijnaantal in het programma die worden onderzocht. Aangezien slechts COPs deze informatie bevatten kan het in de eerste callback vraag niet beschikbaar zijn.

walkoptree_filtered ($op, &filter, &callback, [$data])

Dit is veel het zelfde als walkoptree_simple, maar zal slechts callback roepen als de filter waar terugkeert. De filter wordt overgegaan op in kwestie als parameter; de opgrepfunctie is fantastisch voor de bouw van uw eigen filters.

walkallops_simple (&callback, [$data])

Dit combineert walkoptree_simple met all_roots en anon_subs om elke op in het programma te onderzoeken. $B:: Utils:: sub wordt geplaatst aan de subroutinenaam als youre in een subroutine, __MAIN als youre in het belangrijkste programma en __ANON als youre in een anonieme subroutine.

walkallops_filtered (&filter, &callback, [$data])

Zelfde zoals hierboven, maar gefiltreerd.