The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

PeopleSoft::Tools - Procedural interface for working with tools, so far just SQR.

SYNOPSIS

 use PeopleSoft::Tools;
 $new_buf = munge($sqr_prog_buf);
 $new_buf = unmunge($munged_sqr_buf);
 $results_in_html = profile($output_log_buf);

DESCRIPTION

This module provides functions for working with various PeopleSoft add-on tools, so far an SQR profiling function is provided.

The following functions are provided (and exported) by this module:

munge($buf, $debug_ltr)

The munge function takes two parameters. First, a string buffer containing a complete SQR program. Second is an optional letter specifying a debug level (default is "p". It returns another buffer of the original SQR with debug statements for every subroutine, select and DDL.

unmunge($buf)

unmunge takes a single argument of a string buffer which contains the contents of a previously munged SQR. It returns an SQR with the profiling statements removed.

profile($output_log_buf);

profile reads a buffer containing the contents of the output from a munged SQR. It recurses a directed graph of the subroutines, DDL and DML that were executed and returns HTML of the calling tree with times called and intrinsic seconds of execution time.