| Filename | /usr/lib/perl/5.10/GDBM_File.pm |
| Statements | Executed 28 statements in 1.02ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 84µs | 84µs | GDBM_File::TIEHASH (xsub) |
| 1 | 1 | 1 | 47µs | 73µs | GDBM_File::AUTOLOAD |
| 1 | 1 | 1 | 38µs | 50µs | GDBM_File::BEGIN@44 |
| 1 | 1 | 1 | 27µs | 68µs | GDBM_File::BEGIN@45 |
| 1 | 1 | 1 | 16µs | 16µs | GDBM_File::constant (xsub) |
| 1 | 1 | 1 | 11µs | 34µs | GDBM_File::BEGIN@79 |
| 1 | 1 | 1 | 9µs | 9µs | GDBM_File::CORE:subst (opcode) |
| 1 | 1 | 1 | 8µs | 8µs | GDBM_File::__ANON__[:80] |
| 1 | 1 | 1 | 7µs | 7µs | GDBM_File::BEGIN@51 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # GDBM_File.pm -- Perl 5 interface to GNU gdbm library. | ||||
| 2 | |||||
| 3 | =head1 NAME | ||||
| 4 | |||||
| - - | |||||
| 42 | package GDBM_File; | ||||
| 43 | |||||
| 44 | 3 | 46µs | 2 | 61µs | # spent 50µs (38+12) within GDBM_File::BEGIN@44 which was called:
# once (38µs+12µs) by MARC::Charset::Table::BEGIN@37 at line 44 # spent 50µs making 1 call to GDBM_File::BEGIN@44
# spent 12µs making 1 call to strict::import |
| 45 | 3 | 117µs | 2 | 108µs | # spent 68µs (27+40) within GDBM_File::BEGIN@45 which was called:
# once (27µs+40µs) by MARC::Charset::Table::BEGIN@37 at line 45 # spent 68µs making 1 call to GDBM_File::BEGIN@45
# spent 40µs making 1 call to warnings::import |
| 46 | 1 | 1µs | our($VERSION, @ISA, @EXPORT, $AUTOLOAD); | ||
| 47 | |||||
| 48 | 1 | 1µs | require Carp; | ||
| 49 | 1 | 2µs | require Tie::Hash; | ||
| 50 | 1 | 700ns | require Exporter; | ||
| 51 | 3 | 160µs | 1 | 7µs | # spent 7µs within GDBM_File::BEGIN@51 which was called:
# once (7µs+0s) by MARC::Charset::Table::BEGIN@37 at line 51 # spent 7µs making 1 call to GDBM_File::BEGIN@51 |
| 52 | 1 | 19µs | @ISA = qw(Tie::Hash Exporter); | ||
| 53 | 1 | 3µs | @EXPORT = qw( | ||
| 54 | GDBM_CACHESIZE | ||||
| 55 | GDBM_CENTFREE | ||||
| 56 | GDBM_COALESCEBLKS | ||||
| 57 | GDBM_FAST | ||||
| 58 | GDBM_FASTMODE | ||||
| 59 | GDBM_INSERT | ||||
| 60 | GDBM_NEWDB | ||||
| 61 | GDBM_NOLOCK | ||||
| 62 | GDBM_OPENMASK | ||||
| 63 | GDBM_READER | ||||
| 64 | GDBM_REPLACE | ||||
| 65 | GDBM_SYNC | ||||
| 66 | GDBM_SYNCMODE | ||||
| 67 | GDBM_WRCREAT | ||||
| 68 | GDBM_WRITER | ||||
| 69 | ); | ||||
| 70 | |||||
| 71 | # This module isn't dual life, so no need for dev version numbers. | ||||
| 72 | 1 | 300ns | $VERSION = '1.09'; | ||
| 73 | |||||
| 74 | # spent 73µs (47+26) within GDBM_File::AUTOLOAD which was called:
# once (47µs+26µs) by MARC::Charset::Table::new at line 52 of MARC/Charset/Table.pm | ||||
| 75 | 6 | 78µs | my($constname); | ||
| 76 | 1 | 9µs | ($constname = $AUTOLOAD) =~ s/.*:://; # spent 9µs making 1 call to GDBM_File::CORE:subst | ||
| 77 | 1 | 16µs | my ($error, $val) = constant($constname); # spent 16µs making 1 call to GDBM_File::constant | ||
| 78 | Carp::croak $error if $error; | ||||
| 79 | 3 | 94µs | 2 | 56µs | # spent 34µs (11+23) within GDBM_File::BEGIN@79 which was called:
# once (11µs+23µs) by MARC::Charset::Table::BEGIN@37 at line 79 # spent 34µs making 1 call to GDBM_File::BEGIN@79
# spent 22µs making 1 call to strict::unimport |
| 80 | 1 | 6µs | # spent 8µs within GDBM_File::__ANON__[/usr/lib/perl/5.10/GDBM_File.pm:80] which was called:
# once (8µs+0s) by MARC::Charset::Table::new at line 81 | ||
| 81 | 1 | 8µs | goto &{$AUTOLOAD}; # spent 8µs making 1 call to GDBM_File::__ANON__[GDBM_File.pm:80] | ||
| 82 | } | ||||
| 83 | |||||
| 84 | 1 | 478µs | 1 | 465µs | XSLoader::load 'GDBM_File', $VERSION; # spent 465µs making 1 call to XSLoader::load |
| 85 | |||||
| 86 | 1 | 13µs | 1; | ||
# spent 9µs within GDBM_File::CORE:subst which was called:
# once (9µs+0s) by GDBM_File::AUTOLOAD at line 76 | |||||
# spent 84µs within GDBM_File::TIEHASH which was called:
# once (84µs+0s) by MARC::Charset::Table::_init at line 187 of MARC/Charset/Table.pm | |||||
# spent 16µs within GDBM_File::constant which was called:
# once (16µs+0s) by GDBM_File::AUTOLOAD at line 77 |