← 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:23:56 2012

Filename/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/Tapper/Schema/TestrunDB/ResultSet/Precondition.pm
StatementsExecuted 16 statements in 254µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11111µs11µsTapper::Schema::TestrunDB::ResultSet::Precondition::::BEGIN@2Tapper::Schema::TestrunDB::ResultSet::Precondition::BEGIN@2
1119µs66µsTapper::Schema::TestrunDB::ResultSet::Precondition::::BEGIN@13Tapper::Schema::TestrunDB::ResultSet::Precondition::BEGIN@13
1119µs26µsTapper::Schema::TestrunDB::ResultSet::Precondition::::BEGIN@10Tapper::Schema::TestrunDB::ResultSet::Precondition::BEGIN@10
1119µs52µsTapper::Schema::TestrunDB::ResultSet::Precondition::::BEGIN@12Tapper::Schema::TestrunDB::ResultSet::Precondition::BEGIN@12
1119µs14µsTapper::Schema::TestrunDB::ResultSet::Precondition::::BEGIN@9Tapper::Schema::TestrunDB::ResultSet::Precondition::BEGIN@9
0000s0sTapper::Schema::TestrunDB::ResultSet::Precondition::::addTapper::Schema::TestrunDB::ResultSet::Precondition::add
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Tapper::Schema::TestrunDB::ResultSet::Precondition;
2
# spent 11µs within Tapper::Schema::TestrunDB::ResultSet::Precondition::BEGIN@2 which was called: # once (11µs+0s) by Class::C3::Componentised::ensure_class_loaded at line 4
BEGIN {
315µs $Tapper::Schema::TestrunDB::ResultSet::Precondition::AUTHORITY = 'cpan:AMD';
4129µs111µs}
5{
621µs $Tapper::Schema::TestrunDB::ResultSet::Precondition::VERSION = '0.001';
7}
8
9324µs219µs
# spent 14µs (9+5) within Tapper::Schema::TestrunDB::ResultSet::Precondition::BEGIN@9 which was called: # once (9µs+5µs) by Class::C3::Componentised::ensure_class_loaded at line 9
use strict;
# spent 14µs making 1 call to Tapper::Schema::TestrunDB::ResultSet::Precondition::BEGIN@9 # spent 5µs making 1 call to strict::import
10321µs242µs
# spent 26µs (9+16) within Tapper::Schema::TestrunDB::ResultSet::Precondition::BEGIN@10 which was called: # once (9µs+16µs) by Class::C3::Componentised::ensure_class_loaded at line 10
use warnings;
# spent 26µs making 1 call to Tapper::Schema::TestrunDB::ResultSet::Precondition::BEGIN@10 # spent 16µs making 1 call to warnings::import
11
12321µs294µs
# spent 52µs (9+42) within Tapper::Schema::TestrunDB::ResultSet::Precondition::BEGIN@12 which was called: # once (9µs+42µs) by Class::C3::Componentised::ensure_class_loaded at line 12
use parent 'DBIx::Class::ResultSet';
# spent 52µs making 1 call to Tapper::Schema::TestrunDB::ResultSet::Precondition::BEGIN@12 # spent 42µs making 1 call to parent::import
133149µs2122µs
# spent 66µs (9+56) within Tapper::Schema::TestrunDB::ResultSet::Precondition::BEGIN@13 which was called: # once (9µs+56µs) by Class::C3::Componentised::ensure_class_loaded at line 13
use YAML::Syck;
# spent 66µs making 1 call to Tapper::Schema::TestrunDB::ResultSet::Precondition::BEGIN@13 # spent 56µs making 1 call to Exporter::import
14
15
16sub add {
17 my ($self, $preconditions) = @_;
18
19 my @precond_list = @$preconditions;
20 my @precond_ids;
21
22 foreach my $precond_data (@precond_list) {
23 # (XXX) decide how to handle empty preconditions
24 next if not (ref($precond_data) eq 'HASH');
25 my $shortname = $precond_data->{shortname} || '';
26 my $timeout = $precond_data->{timeout};
27 my $precondition = $self->result_source->schema->resultset('Precondition')->new
28 ({
29 shortname => $shortname,
30 precondition => Dump($precond_data),
31 timeout => $timeout,
32 });
33 $precondition->insert;
34 push @precond_ids, $precondition->id;
35 }
36 return @precond_ids;
37}
38
3913µs1;
40
41__END__