| Filename | /usr/lib/x86_64-linux-gnu/perl/5.20/GDBM_File.pm |
| Statements | Executed 14 statements in 525µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 35µs | 35µs | GDBM_File::TIEHASH (xsub) |
| 1 | 1 | 1 | 12µs | 25µs | GDBM_File::BEGIN@44 |
| 1 | 1 | 1 | 7µs | 12µs | GDBM_File::BEGIN@45 |
| 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 | |||||
| 5 | GDBM_File - Perl5 access to the gdbm library. | ||||
| 6 | |||||
| 7 | =head1 SYNOPSIS | ||||
| 8 | |||||
| 9 | use GDBM_File ; | ||||
| 10 | tie %hash, 'GDBM_File', $filename, &GDBM_WRCREAT, 0640; | ||||
| 11 | # Use the %hash array. | ||||
| 12 | untie %hash ; | ||||
| 13 | |||||
| 14 | =head1 DESCRIPTION | ||||
| 15 | |||||
| 16 | B<GDBM_File> is a module which allows Perl programs to make use of the | ||||
| 17 | facilities provided by the GNU gdbm library. If you intend to use this | ||||
| 18 | module you should really have a copy of the gdbm manualpage at hand. | ||||
| 19 | |||||
| 20 | Most of the libgdbm.a functions are available through the GDBM_File | ||||
| 21 | interface. | ||||
| 22 | |||||
| 23 | =head1 AVAILABILITY | ||||
| 24 | |||||
| 25 | gdbm is available from any GNU archive. The master site is | ||||
| 26 | C<ftp.gnu.org>, but you are strongly urged to use one of the many | ||||
| 27 | mirrors. You can obtain a list of mirror sites from | ||||
| 28 | http://www.gnu.org/order/ftp.html. | ||||
| 29 | |||||
| 30 | =head1 BUGS | ||||
| 31 | |||||
| 32 | The available functions and the gdbm/perl interface need to be documented. | ||||
| 33 | |||||
| 34 | The GDBM error number and error message interface needs to be added. | ||||
| 35 | |||||
| 36 | =head1 SEE ALSO | ||||
| 37 | |||||
| 38 | L<perl(1)>, L<DB_File(3)>, L<perldbmfilter>. | ||||
| 39 | |||||
| 40 | =cut | ||||
| 41 | |||||
| 42 | package GDBM_File; | ||||
| 43 | |||||
| 44 | 2 | 24µs | 2 | 37µs | # spent 25µs (12+12) within GDBM_File::BEGIN@44 which was called:
# once (12µs+12µs) by MARC::Charset::Table::BEGIN@42 at line 44 # spent 25µs making 1 call to GDBM_File::BEGIN@44
# spent 12µs making 1 call to strict::import |
| 45 | 2 | 84µs | 2 | 17µs | # spent 12µs (7+5) within GDBM_File::BEGIN@45 which was called:
# once (7µs+5µs) by MARC::Charset::Table::BEGIN@42 at line 45 # spent 12µs making 1 call to GDBM_File::BEGIN@45
# spent 5µs making 1 call to warnings::import |
| 46 | 1 | 300ns | our($VERSION, @ISA, @EXPORT); | ||
| 47 | |||||
| 48 | 1 | 800ns | require Carp; | ||
| 49 | 1 | 500ns | require Tie::Hash; | ||
| 50 | 1 | 400ns | require Exporter; | ||
| 51 | 1 | 500ns | require XSLoader; | ||
| 52 | 1 | 15µs | @ISA = qw(Tie::Hash Exporter); | ||
| 53 | 1 | 1µ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 | 200ns | $VERSION = '1.15'; | ||
| 73 | |||||
| 74 | 1 | 393µs | 1 | 383µs | XSLoader::load(); # spent 383µs making 1 call to XSLoader::load |
| 75 | |||||
| 76 | 1 | 5µs | 1; | ||
# spent 35µs within GDBM_File::TIEHASH which was called:
# once (35µs+0s) by MARC::Charset::Table::_init at line 194 of MARC/Charset/Table.pm |