| Filename | /usr/share/perl/5.20/AnyDBM_File.pm |
| Statements | Executed 13 statements in 176µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 14µs | 21µs | AnyDBM_File::BEGIN@2 |
| 1 | 1 | 1 | 13µs | 13µs | AnyDBM_File::BEGIN@5 |
| 1 | 1 | 1 | 10µs | 23µs | AnyDBM_File::BEGIN@3 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package AnyDBM_File; | ||||
| 2 | 2 | 24µs | 2 | 28µs | # spent 21µs (14+7) within AnyDBM_File::BEGIN@2 which was called:
# once (14µs+7µs) by MARC::Charset::Table::BEGIN@42 at line 2 # spent 21µs making 1 call to AnyDBM_File::BEGIN@2
# spent 7µs making 1 call to warnings::import |
| 3 | 2 | 21µs | 2 | 35µs | # spent 23µs (10+12) within AnyDBM_File::BEGIN@3 which was called:
# once (10µs+12µs) by MARC::Charset::Table::BEGIN@42 at line 3 # spent 23µs making 1 call to AnyDBM_File::BEGIN@3
# spent 12µs making 1 call to strict::import |
| 4 | |||||
| 5 | 2 | 101µs | 1 | 13µs | # spent 13µs within AnyDBM_File::BEGIN@5 which was called:
# once (13µs+0s) by MARC::Charset::Table::BEGIN@42 at line 5 # spent 13µs making 1 call to AnyDBM_File::BEGIN@5 |
| 6 | 1 | 500ns | our $VERSION = '1.01'; | ||
| 7 | 1 | 300ns | our @ISA = qw(NDBM_File DB_File GDBM_File SDBM_File ODBM_File) unless @ISA; | ||
| 8 | |||||
| 9 | 1 | 100ns | my $mod; | ||
| 10 | 1 | 400ns | for $mod (@ISA) { | ||
| 11 | 1 | 15µs | if (eval "require $mod") { # spent 975µs executing statements in string eval | ||
| 12 | 1 | 10µs | @ISA = ($mod); # if we leave @ISA alone, warnings abound | ||
| 13 | 1 | 4µs | return 1; | ||
| 14 | } | ||||
| 15 | } | ||||
| 16 | |||||
| 17 | die "No DBM package was successfully found or installed"; | ||||
| 18 | |||||
| 19 | __END__ |