view release on metacpan or  search on metacpan

t/04_arm_pm_ss_test.t  view on Meta::CPAN

#    /var/opt/perf/ttd.conf before trying this
#
#---------------------------------------------------------------------------
    use strict;
    use diagnostics;
    use Perf::ARM;
    use Test;
    BEGIN {plan test=>1}

# for debugging
#	use Devel::Peek;  # setenv PERL_DEBUG_MSTATS 2    to see mem usage

my $debug = 0;

my ($end, $rc, $i);
my ($app_name, $app_id, $app_uid);
my ($tran_name, $tran_id, $tran_handle);

################
    $end =10;