| Filename | /home/gmc/projects/marcpm/marc-xml/conv.pl |
| Statements | Executed 20012 statements in 241ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 5005 | 2 | 1 | 42.1ms | 42.1ms | main::CORE:print (opcode) |
| 1 | 1 | 1 | 3.04ms | 136ms | main::BEGIN@3 |
| 1 | 1 | 1 | 1.04ms | 1.17ms | main::BEGIN@5 |
| 1 | 1 | 1 | 292µs | 292µs | MARC::Field::BEGIN@66 |
| 101 | 1 | 1 | 292µs | 292µs | mro::method_changed_in (xsub) |
| 101 | 1 | 1 | 213µs | 213µs | Internals::SvREADONLY (xsub) |
| 7 | 1 | 1 | 25µs | 25µs | UNIVERSAL::isa (xsub) |
| 1 | 1 | 1 | 17µs | 17µs | main::CORE:binmode (opcode) |
| 1 | 1 | 1 | 16µs | 52µs | main::BEGIN@4 |
| 1 | 1 | 1 | 9µs | 9µs | version::(bool (xsub) |
| 1 | 1 | 1 | 8µs | 8µs | version::(cmp (xsub) |
| 0 | 0 | 0 | 0s | 0s | main::RUNTIME |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 0 | 3 | 399µs | Profile data that couldn't be associated with a specific line: # spent 292µs making 1 call to MARC::Field::BEGIN@66
# spent 59µs making 1 call to XML::LibXML::END
# spent 48µs making 1 call to MARC::File::XML::DESTROY | ||
| 1 | 1 | 21µs | #!/usr/bin/perl | ||
| 2 | |||||
| 3 | 3 | 147µs | 2 | 136ms | # spent 136ms (3.04+133) within main::BEGIN@3 which was called:
# once (3.04ms+133ms) by main::RUNTIME at line 3 # spent 136ms making 1 call to main::BEGIN@3
# spent 10µs making 1 call to MARC::File::XML::import |
| 4 | 3 | 40µs | 2 | 88µs | # spent 52µs (16+36) within main::BEGIN@4 which was called:
# once (16µs+36µs) by main::RUNTIME at line 4 # spent 52µs making 1 call to main::BEGIN@4
# spent 36µs making 1 call to Exporter::import |
| 5 | 3 | 651µs | 1 | 1.17ms | # spent 1.17ms (1.04+124µs) within main::BEGIN@5 which was called:
# once (1.04ms+124µs) by main::RUNTIME at line 5 # spent 1.17ms making 1 call to main::BEGIN@5 |
| 6 | |||||
| 7 | 1 | 26µs | 1 | 17µs | binmode STDOUT, ':utf8'; # spent 17µs making 1 call to main::CORE:binmode |
| 8 | |||||
| 9 | 1 | 7µs | 1 | 64µs | my $batch = MARC::Batch->new('XML', $ARGV[0]); # spent 64µs making 1 call to MARC::Batch::new |
| 10 | 1 | 136ms | 5000 | 18.1s | while (my $record = $batch->next) { # spent 18.1s making 5000 calls to MARC::Batch::next, avg 3.62ms/call |
| 11 | 5000 | 5.33ms | $i++; | ||
| 12 | 5000 | 82.5ms | 10000 | 7.89s | print $record->as_usmarc(); # spent 7.85s making 5000 calls to MARC::Record::as_usmarc, avg 1.57ms/call
# spent 41.1ms making 5000 calls to main::CORE:print, avg 8µs/call |
| 13 | 5000 | 9.60ms | 5 | 953µs | if ($i % 1000 == 0) { # spent 953µs making 5 calls to main::CORE:print, avg 191µs/call |
| 14 | print STDERR "$i ", scalar(localtime), "\n"; | ||||
| 15 | } | ||||
| 16 | 5000 | 6.36ms | last if $i == 5000; | ||
| 17 | } | ||||
| 18 | |||||
| - - | |||||
# spent 213µs within Internals::SvREADONLY which was called 101 times, avg 2µs/call:
# 101 times (213µs+0s) by constant::import at line 111 of constant.pm, avg 2µs/call | |||||
# spent 25µs within UNIVERSAL::isa which was called 7 times, avg 4µs/call:
# 7 times (25µs+0s) by base::import at line 80 of base.pm, avg 4µs/call | |||||
# spent 17µs within main::CORE:binmode which was called:
# once (17µs+0s) by main::RUNTIME at line 7 | |||||
sub main::CORE:print; # opcode | |||||
# spent 292µs within mro::method_changed_in which was called 101 times, avg 3µs/call:
# 101 times (292µ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 8µs within version::(cmp which was called:
# once (8µs+0s) by DynaLoader::BEGIN@24 at line 50 of Config.pm |