Perf::ARM - Perl extension wrapper for the ARM 2.0 implementation
use Perf::ARM; my ($appl_id,$tran_handle, $tran_id, $rc); ($appl_id=Perf::ARM::arm_init( "$0", "*", 0,0,0)) || die "arm_init() failed \n"; $tran_id=Perf::ARM::arm_getid($appl_id, "simple_tran", "detail_$$", 0,0,0); $tran_handle=Perf::ARM::arm_start($tran_id, 0,0,0); # do the unit of work to be measured &do_my_work(@my_args) $rc=Perf::ARM::arm_stop($tran_handle, 0, 0,0,0); $rc=Perf::ARM::arm_end($appl_id, 0,0,0);
This serves as a simple wrapper around the ARM C routines:
arm_init(char *,char *,long ,char *,long ); [ returns long ]
arm_getid(long ,char *,char *,long ,char *,long ); [ returns long ]
arm_start(long ,long ,char *,long ); [ returns long ]
arm_update(long ,long ,char *,long ); [ returns long ]
arm_stop(long ,long ,long ,char *,long ); [ returns long ]
arm_end(long ,long ,char *,long ); [ returns long ]
extern arm_int32_t arm_init( char* appl_name, char* appl_user_id, arm_int32_t flags, char* data, arm_int32_t data_size); extern arm_int32_t arm_getid( arm_int32_t appl_id, char* tran_name, char* tran_detail, arm_int32_t flags, char* data, arm_int32_t data_size); extern arm_int32_t arm_start( arm_int32_t tran_id, arm_int32_t flags, char* data, arm_int32_t data_size); extern arm_int32_t arm_update( arm_int32_t start_handle, arm_int32_t flags, char* data, arm_int32_t data_size); extern arm_int32_t arm_stop( arm_int32_t start_handle, arm_int32_t tran_status, arm_int32_t flags, char* data, arm_int32_t data_size); extern arm_int32_t arm_end( arm_int32_t appl_id, arm_int32_t flags, char* data, arm_int32_t data_size);
bryan_backer@hp.com
The module's tests do not currently pass if the system has the no-operation (NULL) shared libraries, as they return zero for all calls.
On some HP-UX builds of perl with the usemymalloc build flag set to 'y', Perf::ARM dumps core. The cause of this problem is not fully understood. If the problem occurs, rebuild the perl with usemymalloc='n'. Running perl -V will show the usemymalloc setting for your perl.
- create a useful subset of tests that work with the null libarm from the ARM SDK, allowing 'make test' to pass on those systems. - integrate David Carter's Inline suggestions - integrate David Carter's function name and null parameter shortening suggestions - build an object interface similar to the ARM 3.0 Java interface described at http://regions.cmg.org/regions/cmgarmw/ARM30.html
ARM FAQ at http://www.cmg.org/regions/cmgarmw/armfaq.html
Glance docs at http://www.openview.hp.com/products/
CMG ARM Working Group info page at http://www.cmg.org/regions/cmgarmw/
HP-UX: /opt/perf/include/arm.h or /usr/include/arm.h
To install Perf::ARM, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Perf::ARM
CPAN shell
perl -MCPAN -e shell install Perf::ARM
For more information on module installation, please visit the detailed CPAN module installation guide.