| Filename | /home/gmc/projects/marcpm/marc-xml/conv.pl |
| Statements | Executed 20012 statements in 240ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 5005 | 2 | 1 | 52.6ms | 52.6ms | main::CORE:print (opcode) |
| 1 | 1 | 1 | 3.13ms | 94.8ms | main::BEGIN@3 |
| 1 | 1 | 1 | 939µs | 1.07ms | main::BEGIN@5 |
| 29 | 1 | 1 | 92µs | 92µs | mro::method_changed_in (xsub) |
| 29 | 1 | 1 | 66µs | 66µs | Internals::SvREADONLY (xsub) |
| 7 | 1 | 1 | 27µs | 27µs | UNIVERSAL::isa (xsub) |
| 1 | 1 | 1 | 18µs | 18µs | main::CORE:binmode (opcode) |
| 1 | 1 | 1 | 17µs | 59µs | main::BEGIN@4 |
| 1 | 1 | 1 | 9µs | 9µs | version::(bool (xsub) |
| 1 | 1 | 1 | 9µs | 9µs | version::(cmp (xsub) |
| 0 | 0 | 0 | 0s | 0s | main::RUNTIME |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 0 | 1 | 51µs | Profile data that couldn't be associated with a specific line: # spent 51µs making 1 call to MARC::File::XML::DESTROY | ||
| 1 | 1 | 6µs | #!/usr/bin/perl | ||
| 2 | |||||
| 3 | 3 | 152µs | 2 | 94.8ms | # spent 94.8ms (3.13+91.6) within main::BEGIN@3 which was called:
# once (3.13ms+91.6ms) by main::RUNTIME at line 3 # spent 94.8ms making 1 call to main::BEGIN@3
# spent 13µs making 1 call to MARC::File::XML::import |
| 4 | 3 | 40µs | 2 | 101µs | # spent 59µs (17+42) within main::BEGIN@4 which was called:
# once (17µs+42µs) by main::RUNTIME at line 4 # spent 59µs making 1 call to main::BEGIN@4
# spent 42µs making 1 call to Exporter::import |
| 5 | 3 | 583µs | 1 | 1.07ms | # spent 1.07ms (939µs+128µs) within main::BEGIN@5 which was called:
# once (939µs+128µs) by main::RUNTIME at line 5 # spent 1.07ms making 1 call to main::BEGIN@5 |
| 6 | |||||
| 7 | 1 | 28µs | 1 | 18µs | binmode STDOUT, ':utf8'; # spent 18µs making 1 call to main::CORE:binmode |
| 8 | |||||
| 9 | 1 | 7µs | 1 | 62µs | my $batch = MARC::Batch->new('XML', $ARGV[0]); # spent 62µs making 1 call to MARC::Batch::new |
| 10 | 20001 | 240ms | 5000 | 10.5s | while (my $record = $batch->next) { # spent 10.5s making 5000 calls to MARC::Batch::next, avg 2.10ms/call |
| 11 | $i++; | ||||
| 12 | 10000 | 7.64s | print $record->as_usmarc(); # spent 7.59s making 5000 calls to MARC::Record::as_usmarc, avg 1.52ms/call
# spent 50.1ms making 5000 calls to main::CORE:print, avg 10µs/call | ||
| 13 | 5 | 2.49ms | if ($i % 1000 == 0) { # spent 2.49ms making 5 calls to main::CORE:print, avg 498µs/call | ||
| 14 | print STDERR "$i ", scalar(localtime), "\n"; | ||||
| 15 | } | ||||
| 16 | last if $i == 5000; | ||||
| 17 | } | ||||
# spent 66µs within Internals::SvREADONLY which was called 29 times, avg 2µs/call:
# 29 times (66µs+0s) by constant::import at line 111 of constant.pm, avg 2µs/call | |||||
# spent 27µs within UNIVERSAL::isa which was called 7 times, avg 4µs/call:
# 7 times (27µs+0s) by base::import at line 80 of base.pm, avg 4µs/call | |||||
# spent 18µs within main::CORE:binmode which was called:
# once (18µs+0s) by main::RUNTIME at line 7 | |||||
sub main::CORE:print; # opcode | |||||
# spent 92µs within mro::method_changed_in which was called 29 times, avg 3µs/call:
# 29 times (92µs+0s) by constant::import at line 113 of constant.pm, avg 3µs/call | |||||
# spent 9µs within version::(bool which was called:
# once (9µs+0s) by DynaLoader::BEGIN@24 at line 47 of Config.pm | |||||
# spent 9µs within version::(cmp which was called:
# once (9µs+0s) by DynaLoader::BEGIN@24 at line 50 of Config.pm |