| Filename | /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Hash/Util/FieldHash/Compat.pm |
| Statements | Executed 37 statements in 1.46ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 1.69ms | 3.15ms | Hash::Util::FieldHash::Compat::BEGIN@8 |
| 4 | 4 | 4 | 197µs | 239µs | Hash::Util::FieldHash::Compat::import |
| 1 | 1 | 1 | 80µs | 100µs | Hash::Util::FieldHash::Compat::BEGIN@5 |
| 1 | 1 | 1 | 57µs | 6.53ms | Hash::Util::FieldHash::Compat::BEGIN@10 |
| 1 | 1 | 1 | 40µs | 109µs | Hash::Util::FieldHash::Compat::BEGIN@6 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | #!/usr/bin/perl | ||||
| 2 | |||||
| 3 | package Hash::Util::FieldHash::Compat; | ||||
| 4 | |||||
| 5 | 3 | 103µs | 2 | 120µs | # spent 100µs (80+20) within Hash::Util::FieldHash::Compat::BEGIN@5 which was called:
# once (80µs+20µs) by MooseX::Clone::BEGIN@8 at line 5 # spent 100µs making 1 call to Hash::Util::FieldHash::Compat::BEGIN@5
# spent 20µs making 1 call to strict::import |
| 6 | 3 | 146µs | 2 | 177µs | # spent 109µs (40+69) within Hash::Util::FieldHash::Compat::BEGIN@6 which was called:
# once (40µs+69µs) by MooseX::Clone::BEGIN@8 at line 6 # spent 109µs making 1 call to Hash::Util::FieldHash::Compat::BEGIN@6
# spent 69µs making 1 call to warnings::import |
| 7 | |||||
| 8 | 6 | 503µs | 2 | 3.35ms | # spent 3.15ms (1.69+1.46) within Hash::Util::FieldHash::Compat::BEGIN@8 which was called:
# once (1.69ms+1.46ms) by MooseX::Clone::BEGIN@8 at line 8 # spent 3.15ms making 1 call to Hash::Util::FieldHash::Compat::BEGIN@8
# spent 196µs making 1 call to constant::import |
| 9 | |||||
| 10 | # spent 6.53ms (57µs+6.47) within Hash::Util::FieldHash::Compat::BEGIN@10 which was called:
# once (57µs+6.47ms) by MooseX::Clone::BEGIN@8 at line 17 | ||||
| 11 | 1 | 16µs | if ( REAL_FIELDHASH ) { | ||
| 12 | 1 | 3µs | require Hash::Util::FieldHash; | ||
| 13 | 1 | 26µs | 1 | 6.47ms | Hash::Util::FieldHash->import(":all"); # spent 6.47ms making 1 call to Exporter::import |
| 14 | } else { | ||||
| 15 | require Hash::Util::FieldHash::Compat::Heavy; | ||||
| 16 | } | ||||
| 17 | 1 | 360µs | 1 | 6.53ms | } # spent 6.53ms making 1 call to Hash::Util::FieldHash::Compat::BEGIN@10 |
| 18 | |||||
| 19 | 1 | 4µs | our $VERSION = "0.03"; | ||
| 20 | |||||
| 21 | # spent 239µs (197+43) within Hash::Util::FieldHash::Compat::import which was called 4 times, avg 60µs/call:
# once (66µs+9µs) by MooseX::Clone::BEGIN@8 at line 8 of MooseX/Clone.pm
# once (44µs+11µs) by KiokuDB::BEGIN@19 at line 19 of KiokuDB.pm
# once (43µs+12µs) by KiokuDB::Collapser::Buffer::BEGIN@4 at line 4 of KiokuDB/Collapser/Buffer.pm
# once (44µs+11µs) by KiokuDB::LiveObjects::BEGIN@8 at line 8 of KiokuDB/LiveObjects.pm | ||||
| 22 | 4 | 9µs | if ( REAL_FIELDHASH ) { | ||
| 23 | 4 | 16µs | my $class = "Hash::Util::FieldHash"; | ||
| 24 | |||||
| 25 | 4 | 12µs | shift @_; | ||
| 26 | 4 | 23µs | unshift @_, $class; | ||
| 27 | |||||
| 28 | 4 | 229µs | 8 | 672µs | goto $class->can("import"); # spent 630µs making 4 calls to Exporter::import, avg 157µs/call
# spent 43µs making 4 calls to UNIVERSAL::can, avg 11µs/call |
| 29 | } else { | ||||
| 30 | my $class = shift; | ||||
| 31 | $class->export_to_level(1, $class, @_); | ||||
| 32 | } | ||||
| 33 | } | ||||
| 34 | |||||
| 35 | 1 | 11µs | __PACKAGE__ | ||
| 36 | |||||
| 37 | __END__ |