← Index
Performance Profile   « block view • line view • sub view »
For t/test-parsing
  Run on Sun Nov 14 09:49:57 2010
Reported on Sun Nov 14 09:50:12 2010

File /usr/share/perl/5.10/integer.pm
Statements Executed 6
Total Time 1.05e-05 seconds
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
33322µs22µsinteger::::importinteger::import
0000s0sinteger::::unimportinteger::unimport
LineStmts.Exclusive
Time
Avg.Code
1package integer;
2
31700ns700nsour $VERSION = '1.00';
4
51400ns400ns$integer::hint_bits = 0x1;
6
7
# spent 22µs within integer::import which was called 3 times, avg 7µs/call: # once (9µs+0s) at line 4 of /usr/share/perl5/MARC/Field.pm # once (7µs+0s) at line 10 of /usr/share/perl5/MARC/File.pm # once (5µs+0s) at line 10 of /usr/share/perl5/MARC/Record.pm
sub import {
836µs2µs $^H |= $integer::hint_bits;
9}
10
11sub unimport {
12 $^H &= ~$integer::hint_bits;
13}
14
1514µs4µs1;