| Filename | /usr/lib/perl/5.10/GDBM_File.pm |
| Statements | Executed 28 statements in 756µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 81µs | 81µs | GDBM_File::TIEHASH (xsub) |
| 1 | 1 | 1 | 29µs | 47µs | GDBM_File::AUTOLOAD |
| 1 | 1 | 1 | 23µs | 30µs | GDBM_File::BEGIN@44 |
| 1 | 1 | 1 | 14µs | 14µs | GDBM_File::constant (xsub) |
| 1 | 1 | 1 | 11µs | 31µs | GDBM_File::BEGIN@79 |
| 1 | 1 | 1 | 10µs | 28µs | GDBM_File::BEGIN@45 |
| 1 | 1 | 1 | 5µs | 5µs | GDBM_File::BEGIN@51 |
| 1 | 1 | 1 | 5µs | 5µs | GDBM_File::CORE:subst (opcode) |
| 1 | 1 | 1 | 2µs | 2µs | GDBM_File::__ANON__[:80] |
| 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 | 29µs | 2 | 36µs | # spent 30µs (23+6) within GDBM_File::BEGIN@44 which was called:
# once (23µs+6µs) by MARC::Charset::Table::BEGIN@37 at line 44 # spent 30µs making 1 call to GDBM_File::BEGIN@44
# spent 6µs making 1 call to strict::import |
| 45 | 3 | 63µs | 2 | 46µs | # spent 28µs (10+18) within GDBM_File::BEGIN@45 which was called:
# once (10µs+18µs) by MARC::Charset::Table::BEGIN@37 at line 45 # spent 28µs making 1 call to GDBM_File::BEGIN@45
# spent 18µs making 1 call to warnings::import |
| 46 | 1 | 800ns | our($VERSION, @ISA, @EXPORT, $AUTOLOAD); | ||
| 47 | |||||
| 48 | 1 | 1µs | require Carp; | ||
| 49 | 1 | 1µs | require Tie::Hash; | ||
| 50 | 1 | 600ns | require Exporter; | ||
| 51 | 3 | 150µs | 1 | 5µs | # spent 5µs within GDBM_File::BEGIN@51 which was called:
# once (5µs+0s) by MARC::Charset::Table::BEGIN@37 at line 51 # spent 5µs making 1 call to GDBM_File::BEGIN@51 |
| 52 | 1 | 17µ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 47µs (29+18) within GDBM_File::AUTOLOAD which was called:
# once (29µs+18µs) by MARC::Charset::Table::new at line 52 of MARC/Charset/Table.pm | ||||
| 75 | 1 | 500ns | my($constname); | ||
| 76 | 1 | 14µs | 1 | 5µs | ($constname = $AUTOLOAD) =~ s/.*:://; # spent 5µs making 1 call to GDBM_File::CORE:subst |
| 77 | 1 | 20µs | 1 | 14µs | my ($error, $val) = constant($constname); # spent 14µs making 1 call to GDBM_File::constant |
| 78 | 1 | 700ns | Carp::croak $error if $error; | ||
| 79 | 3 | 85µs | 2 | 50µs | # spent 31µs (11+19) within GDBM_File::BEGIN@79 which was called:
# once (11µs+19µs) by MARC::Charset::Table::BEGIN@37 at line 79 # spent 31µs making 1 call to GDBM_File::BEGIN@79
# spent 19µs making 1 call to strict::unimport |
| 80 | 2 | 10µs | # spent 2µs within GDBM_File::__ANON__[/usr/lib/perl/5.10/GDBM_File.pm:80] which was called:
# once (2µs+0s) by MARC::Charset::Table::new at line 81 | ||
| 81 | 1 | 6µs | 1 | 2µs | goto &{$AUTOLOAD}; # spent 2µs making 1 call to GDBM_File::__ANON__[GDBM_File.pm:80] |
| 82 | } | ||||
| 83 | |||||
| 84 | 1 | 342µs | 1 | 332µs | XSLoader::load 'GDBM_File', $VERSION; # spent 332µs making 1 call to XSLoader::load |
| 85 | |||||
| 86 | 1 | 10µs | 1; | ||
# spent 5µs within GDBM_File::CORE:subst which was called:
# once (5µs+0s) by GDBM_File::AUTOLOAD at line 76 | |||||
# spent 81µs within GDBM_File::TIEHASH which was called:
# once (81µs+0s) by MARC::Charset::Table::_init at line 187 of MARC/Charset/Table.pm | |||||
# spent 14µs within GDBM_File::constant which was called:
# once (14µs+0s) by GDBM_File::AUTOLOAD at line 77 |