Instrument the TPAC: add timelog() method to EGCatLoader user/dbs/tpac_instrument
authorDan Scott <dscott@laurentian.ca>
Wed, 25 Apr 2012 19:20:46 +0000 (15:20 -0400)
committerDan Scott <dscott@laurentian.ca>
Wed, 25 Apr 2012 19:23:45 +0000 (15:23 -0400)
commit88af1db71ee57f60a2264f9f1e275654d683593a
tree844887601a5ff09d193dd61675d09ab9d031f0cd
parent70cabed6c13a6fb5479e13ac88bd28cabbfcecde
Instrument the TPAC: add timelog() method to EGCatLoader

Meant for timing how long events take to generate a single TPAC page,
the timelog() method will provide timing in microsecond granularity of
various events required to build the page.

To invoke: $self->timelog("Event description...");

Builds up a context variable named "timing" containing a list of
arrays; each array entry contains a time and the event description.

Signed-off-by: Dan Scott <dscott@laurentian.ca>
Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm