Select Code to Download

package Foo;

...
Foo::bar();
Foo::zap();
Foo::zap();

[adamm@twins adamm]$ perl -d:DProf test.pl 
[adamm@twins adamm]$ dprofpp tmon.out 
...
%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 0.00   0.000 -0.000      2   0.0000      -  Foo::bar
 0.00   0.000 -0.000      2   0.0000      -  Foo::zap

package Foo;
use strict;
...
Foo::bar();
Foo::zap();
Foo::zap();

[adamm@mustafa adamm]$ perl -d:DProf test.pl 
[adamm@mustafa adamm]$ dprofpp tmon.out 
...
 0.00   0.000 -0.000      1   0.0000      -  strict::import
 0.00   0.000 -0.000      1   0.0000      -  strict::bits
 0.00   0.000 -0.000      2   0.0000      -  Foo::zap