← Index
NYTProf Performance Profile   « block view • line view • sub view »
For xt/tapper-mcp-scheduler-with-db-longrun.t
  Run on Tue May 22 17:18:39 2012
Reported on Tue May 22 17:22:57 2012

Filename/2home/ss5/local/projects/Tapper/src/Tapper-MCP/lib/Tapper/MCP/Scheduler/Algorithm.pm
StatementsExecuted 16 statements in 492µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11163µs112µsTapper::MCP::Scheduler::Algorithm::::BEGIN@5Tapper::MCP::Scheduler::Algorithm::BEGIN@5
11126µs2.57msTapper::MCP::Scheduler::Algorithm::::__ANON__[lib/Tapper/MCP/Scheduler/Algorithm.pm:12]Tapper::MCP::Scheduler::Algorithm::__ANON__[lib/Tapper/MCP/Scheduler/Algorithm.pm:12]
11113µs4.79msTapper::MCP::Scheduler::Algorithm::::BEGIN@6Tapper::MCP::Scheduler::Algorithm::BEGIN@6
11111µs47µsTapper::MCP::Scheduler::Algorithm::::BEGIN@7Tapper::MCP::Scheduler::Algorithm::BEGIN@7
1119µs49µsTapper::MCP::Scheduler::Algorithm::::BEGIN@5.5Tapper::MCP::Scheduler::Algorithm::BEGIN@5.5
0000s0sTapper::MCP::Scheduler::Algorithm::::add_queueTapper::MCP::Scheduler::Algorithm::add_queue
0000s0sTapper::MCP::Scheduler::Algorithm::::get_next_queueTapper::MCP::Scheduler::Algorithm::get_next_queue
0000s0sTapper::MCP::Scheduler::Algorithm::::lookup_next_queueTapper::MCP::Scheduler::Algorithm::lookup_next_queue
0000s0sTapper::MCP::Scheduler::Algorithm::::queue_countTapper::MCP::Scheduler::Algorithm::queue_count
0000s0sTapper::MCP::Scheduler::Algorithm::::remove_queueTapper::MCP::Scheduler::Algorithm::remove_queue
0000s0sTapper::MCP::Scheduler::Algorithm::::update_queueTapper::MCP::Scheduler::Algorithm::update_queue
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1## no critic (RequireUseStrict)
2package Tapper::MCP::Scheduler::Algorithm;
3# ABSTRACT: name of the queue has to be unique
4
5672µs3200µs
# spent 49µs (9+40) within Tapper::MCP::Scheduler::Algorithm::BEGIN@5.5 which was called: # once (9µs+40µs) by Tapper::MCP::Scheduler::Algorithm::BEGIN@5 at line 5 # spent 112µs (63+49) within Tapper::MCP::Scheduler::Algorithm::BEGIN@5 which was called: # once (63µs+49µs) by Tapper::MCP::Scheduler::Controller::BEGIN@1 at line 5
use 5.010;
# spent 112µs making 1 call to Tapper::MCP::Scheduler::Algorithm::BEGIN@5 # spent 49µs making 1 call to Tapper::MCP::Scheduler::Algorithm::BEGIN@5.5 # spent 40µs making 1 call to feature::import
6361µs29.56ms
# spent 4.79ms (13µs+4.77) within Tapper::MCP::Scheduler::Algorithm::BEGIN@6 which was called: # once (13µs+4.77ms) by Tapper::MCP::Scheduler::Controller::BEGIN@1 at line 6
use Moose;
# spent 4.79ms making 1 call to Tapper::MCP::Scheduler::Algorithm::BEGIN@6 # spent 4.77ms making 1 call to Moose::Exporter::__ANON__[Moose/Exporter.pm:492]
73315µs284µs
# spent 47µs (11+36) within Tapper::MCP::Scheduler::Algorithm::BEGIN@7 which was called: # once (11µs+36µs) by Tapper::MCP::Scheduler::Controller::BEGIN@1 at line 7
use Tapper::Model 'model';
# spent 47µs making 1 call to Tapper::MCP::Scheduler::Algorithm::BEGIN@7 # spent 36µs making 1 call to Exporter::import
8
9 has queues => (
10 is => 'rw',
11 isa => 'HashRef',
12114µs32.53ms
# spent 2.57ms (26µs+2.55) within Tapper::MCP::Scheduler::Algorithm::__ANON__[lib/Tapper/MCP/Scheduler/Algorithm.pm:12] which was called: # once (26µs+2.55ms) by Class::MOP::Mixin::AttributeCore::default at line 45 of Class/MOP/Mixin/AttributeCore.pm
default => sub { model('TestrunDB')->resultset('Queue')->official_queuelist },
# spent 2.28ms making 1 call to Tapper::Schema::TestrunDB::ResultSet::Queue::official_queuelist # spent 244µs making 1 call to DBIx::Class::Schema::resultset # spent 7µs making 1 call to Memoize::__ANON__[(eval 256)[Memoize.pm:71]:1]
1313µs12.92ms );
# spent 2.92ms making 1 call to Moose::has
14
15 sub queue_count {
16 my ($self) = @_;
17
18 scalar keys %{$self->queues}
19 }
20
21 sub add_queue {
22 my ($self, $q) = @_;
23
24 my $qname = $q->name;
25 if ($self->queues->{$qname}) {
26 warn "Queue with name '$qname' already exists";
27 return;
28 }
29
30 foreach (keys %{$self->queues})
31 {
32 $self->queues->{$_}->runcount( 0 );
33 }
34
35 $self->queues->{$qname} = $q;
36 }
37
38 sub remove_queue {
39 my ($self, $q) = @_;
40 delete $self->queues->{$q->name};
41 }
42
43 sub update_queue {
44 my ($self, $q) = @_;
45 # interface
46 die "Interface update_queue not implemented";
47 }
48
49 sub lookup_next_queue {
50 my ($self) = @_;
51 # interface
52 die "Interface lookup_next_queue not implemented";
53 }
54
55 sub get_next_queue {
56 my ($self) = @_;
57 # interface
58 die "Interface get_next_queue not implemented";
59 }
60
6115µs156.5ms with 'MooseX::Traits';
# spent 56.5ms making 1 call to Moose::with
62121µs1;
63
64__END__