Filename | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/Tapper/Schema/TestrunDB/ResultSet/Queue.pm |
Statements | Executed 2194 statements in 5.93ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
181 | 2 | 2 | 7.42ms | 357ms | official_queuelist | Tapper::Schema::TestrunDB::ResultSet::Queue::
1 | 1 | 1 | 38µs | 75µs | BEGIN@9 | Tapper::Schema::TestrunDB::ResultSet::Queue::
1 | 1 | 1 | 11µs | 11µs | BEGIN@2 | Tapper::Schema::TestrunDB::ResultSet::Queue::
1 | 1 | 1 | 11µs | 37µs | BEGIN@9.24 | Tapper::Schema::TestrunDB::ResultSet::Queue::
1 | 1 | 1 | 9µs | 44µs | BEGIN@14 | Tapper::Schema::TestrunDB::ResultSet::Queue::
1 | 1 | 1 | 7µs | 29µs | BEGIN@13 | Tapper::Schema::TestrunDB::ResultSet::Queue::
1 | 1 | 1 | 7µs | 17µs | BEGIN@11 | Tapper::Schema::TestrunDB::ResultSet::Queue::
1 | 1 | 1 | 7µs | 9µs | BEGIN@10 | Tapper::Schema::TestrunDB::ResultSet::Queue::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Tapper::Schema::TestrunDB::ResultSet::Queue; | ||||
2 | # spent 11µs within Tapper::Schema::TestrunDB::ResultSet::Queue::BEGIN@2 which was called:
# once (11µs+0s) by Class::C3::Componentised::ensure_class_loaded at line 4 | ||||
3 | 1 | 4µs | $Tapper::Schema::TestrunDB::ResultSet::Queue::AUTHORITY = 'cpan:AMD'; | ||
4 | 1 | 22µs | 1 | 11µs | } # spent 11µs making 1 call to Tapper::Schema::TestrunDB::ResultSet::Queue::BEGIN@2 |
5 | { | ||||
6 | 2 | 800ns | $Tapper::Schema::TestrunDB::ResultSet::Queue::VERSION = '0.001'; | ||
7 | } | ||||
8 | |||||
9 | 6 | 57µs | 3 | 137µs | # spent 75µs (38+37) within Tapper::Schema::TestrunDB::ResultSet::Queue::BEGIN@9 which was called:
# once (38µs+37µs) by Class::C3::Componentised::ensure_class_loaded at line 9
# spent 37µs (11+26) within Tapper::Schema::TestrunDB::ResultSet::Queue::BEGIN@9.24 which was called:
# once (11µs+26µs) by Tapper::Schema::TestrunDB::ResultSet::Queue::BEGIN@9 at line 9 # spent 75µs making 1 call to Tapper::Schema::TestrunDB::ResultSet::Queue::BEGIN@9
# spent 37µs making 1 call to Tapper::Schema::TestrunDB::ResultSet::Queue::BEGIN@9.24
# spent 26µs making 1 call to feature::import |
10 | 3 | 18µs | 2 | 12µs | # spent 9µs (7+3) within Tapper::Schema::TestrunDB::ResultSet::Queue::BEGIN@10 which was called:
# once (7µs+3µs) by Class::C3::Componentised::ensure_class_loaded at line 10 # spent 9µs making 1 call to Tapper::Schema::TestrunDB::ResultSet::Queue::BEGIN@10
# spent 2µs making 1 call to strict::import |
11 | 3 | 19µs | 2 | 26µs | # spent 17µs (7+10) within Tapper::Schema::TestrunDB::ResultSet::Queue::BEGIN@11 which was called:
# once (7µs+10µs) by Class::C3::Componentised::ensure_class_loaded at line 11 # spent 17µs making 1 call to Tapper::Schema::TestrunDB::ResultSet::Queue::BEGIN@11
# spent 10µs making 1 call to warnings::import |
12 | |||||
13 | 3 | 18µs | 2 | 51µs | # spent 29µs (7+22) within Tapper::Schema::TestrunDB::ResultSet::Queue::BEGIN@13 which was called:
# once (7µs+22µs) by Class::C3::Componentised::ensure_class_loaded at line 13 # spent 29µs making 1 call to Tapper::Schema::TestrunDB::ResultSet::Queue::BEGIN@13
# spent 22µs making 1 call to parent::import |
14 | 3 | 82µs | 2 | 80µs | # spent 44µs (9+36) within Tapper::Schema::TestrunDB::ResultSet::Queue::BEGIN@14 which was called:
# once (9µs+36µs) by Class::C3::Componentised::ensure_class_loaded at line 14 # spent 44µs making 1 call to Tapper::Schema::TestrunDB::ResultSet::Queue::BEGIN@14
# spent 36µs making 1 call to Exporter::import |
15 | |||||
16 | |||||
17 | # spent 357ms (7.42+350) within Tapper::Schema::TestrunDB::ResultSet::Queue::official_queuelist which was called 181 times, avg 1.97ms/call:
# 180 times (7.36ms+348ms) by Tapper::MCP::Scheduler::Controller::get_next_job at line 82 of lib/Tapper/MCP/Scheduler/Controller.pm, avg 1.97ms/call
# once (51µs+2.23ms) by Tapper::MCP::Scheduler::Algorithm::__ANON__[lib/Tapper/MCP/Scheduler/Algorithm.pm:12] at line 12 of lib/Tapper/MCP/Scheduler/Algorithm.pm | ||||
18 | 724 | 2.71ms | my ($self) = @_; | ||
19 | |||||
20 | my %queues; | ||||
21 | 1448 | 3.00ms | 905 | 341ms | while (my $q = $self->next) { # spent 341ms making 905 calls to DBIx::Class::ResultSet::next, avg 377µs/call |
22 | 724 | 4.76ms | next if not $q->active; # spent 4.76ms making 724 calls to Tapper::Schema::TestrunDB::Result::Queue::active, avg 7µs/call | ||
23 | 724 | 3.85ms | $queues{$q->name} = $q; # spent 3.85ms making 724 calls to Tapper::Schema::TestrunDB::Result::Queue::name, avg 5µs/call | ||
24 | } | ||||
25 | return \%queues; | ||||
26 | } | ||||
27 | |||||
28 | 1 | 2µs | 1; | ||
29 | |||||
30 | __END__ |