/trunk/Examples/test-suite/perl5/profiletest_runme.pl

# · Perl · 8 lines · 6 code · 2 blank · 0 comment · 1 complexity · af24a19282959cfa457b7c35f8188cd6 MD5 · raw file 

    

  1. use profiletest;
    2. 

  2. $a = profiletestc::new_A();
    3. 

  3. $b = profiletestc::new_B();
    4. 

  4. 

  5. for ($i = 0; $i < 100000; $i++) {
    6. 

  6.     $a = profiletestc::B_fn($b, $a);
    7. 

  7. }
    8.