PageRenderTime 25ms CodeModel.GetById 17ms app.highlight 4ms RepoModel.GetById 2ms app.codeStats 0ms

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

#
Perl | 8 lines | 6 code | 2 blank | 0 comment | 1 complexity | af24a19282959cfa457b7c35f8188cd6 MD5 | raw file
1use profiletest;
2$a = profiletestc::new_A();
3$b = profiletestc::new_B();
4
5for ($i = 0; $i < 100000; $i++) {
6    $a = profiletestc::B_fn($b, $a);
7}
8