First oddity - a non-looping line (251) appears to execute twice as
much as surrounding lines.
250 49367 94.5ms 49367 87.3ms while (defined($next_time = $kr_queue-
>get_next_priority())) {
# spent 87.3ms making 49367 calls to
POE::Queue::Array::get_next_priority, avg 2µs/call
251 98749 46.1ms last if $next_time > $now;
252
253 49383 146ms 49383 289ms my ($due_time, $id, $event) = $kr_queue-
>dequeue_next();
# spent 289ms making 49383 calls to POE::Queue::Array::dequeue_next,
avg 6µs/call
Second oddity - a call is attributed to a line that never makes it.
278 49382 194ms 49382 99.2ms POE::Kernel->stop() if
$POE::Kernel::kr_exception;
# spent 99.2ms making 49382 calls to
POE::Queue::Array::get_next_priority, avg 2µs/call
System details:
% perl -wle 'use Devel::NYTProf 999'
Devel::NYTProf version 999 required--this is only version 4.04 at -e
line 1.
% perl -v
This is perl, v5.10.0 built for darwin-thread-multi-2level
--
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [email protected]
