← 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:14 2012

Filename/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/Tapper/Schema/ReportsDB/Result/ReportgroupArbitrary.pm
StatementsExecuted 18 statements in 323µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11112µs12µsTapper::Schema::ReportsDB::Result::ReportgroupArbitrary::::BEGIN@2Tapper::Schema::ReportsDB::Result::ReportgroupArbitrary::BEGIN@2
11111µs16µsTapper::Schema::ReportsDB::Result::ReportgroupArbitrary::::BEGIN@9Tapper::Schema::ReportsDB::Result::ReportgroupArbitrary::BEGIN@9
11110µs50µsTapper::Schema::ReportsDB::Result::ReportgroupArbitrary::::BEGIN@12Tapper::Schema::ReportsDB::Result::ReportgroupArbitrary::BEGIN@12
11110µs26µsTapper::Schema::ReportsDB::Result::ReportgroupArbitrary::::BEGIN@10Tapper::Schema::ReportsDB::Result::ReportgroupArbitrary::BEGIN@10
0000s0sTapper::Schema::ReportsDB::Result::ReportgroupArbitrary::::groupreportsTapper::Schema::ReportsDB::Result::ReportgroupArbitrary::groupreports
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::ReportsDB::Result::ReportgroupArbitrary;
2
# spent 12µs within Tapper::Schema::ReportsDB::Result::ReportgroupArbitrary::BEGIN@2 which was called: # once (12µs+0s) by Class::C3::Componentised::ensure_class_loaded at line 4
BEGIN {
315µs $Tapper::Schema::ReportsDB::Result::ReportgroupArbitrary::AUTHORITY = 'cpan:AMD';
4130µs112µs}
5{
62900ns $Tapper::Schema::ReportsDB::Result::ReportgroupArbitrary::VERSION = '0.001';
7}
8
9321µs221µs
# spent 16µs (11+5) within Tapper::Schema::ReportsDB::Result::ReportgroupArbitrary::BEGIN@9 which was called: # once (11µs+5µs) by Class::C3::Componentised::ensure_class_loaded at line 9
use strict;
# spent 16µs making 1 call to Tapper::Schema::ReportsDB::Result::ReportgroupArbitrary::BEGIN@9 # spent 5µs making 1 call to strict::import
10322µs243µs
# spent 26µs (10+17) within Tapper::Schema::ReportsDB::Result::ReportgroupArbitrary::BEGIN@10 which was called: # once (10µs+17µs) by Class::C3::Componentised::ensure_class_loaded at line 10
use warnings;
# spent 26µs making 1 call to Tapper::Schema::ReportsDB::Result::ReportgroupArbitrary::BEGIN@10 # spent 17µs making 1 call to warnings::import
11
123152µs291µs
# spent 50µs (10+41) within Tapper::Schema::ReportsDB::Result::ReportgroupArbitrary::BEGIN@12 which was called: # once (10µs+41µs) by Class::C3::Componentised::ensure_class_loaded at line 12
use parent 'DBIx::Class';
# spent 50µs making 1 call to Tapper::Schema::ReportsDB::Result::ReportgroupArbitrary::BEGIN@12 # spent 41µs making 1 call to parent::import
13
14112µs1251µs__PACKAGE__->load_components("Core");
# spent 251µs making 1 call to Class::C3::Componentised::load_components
15120µs1485µs__PACKAGE__->table("reportgrouparbitrary");
# spent 485µs making 1 call to DBIx::Class::ResultSourceProxy::Table::table
16124µs1528µs__PACKAGE__->add_columns
# spent 528µs making 1 call to DBIx::Class::ResultSourceProxy::add_columns
17 (
18 "arbitrary_id", { data_type => "VARCHAR", default_value => undef, is_nullable => 0, size => 255, },
19 "report_id", { data_type => "INT", default_value => undef, is_nullable => 0, size => 11, is_foreign_key => 1, },
20 "primaryreport", { data_type => "INT", default_value => undef, is_nullable => 1, size => 11, },
21 "owner", { data_type => "VARCHAR", default_value => undef, is_nullable => 1, size => 255, },
22 );
23
24115µs164µs__PACKAGE__->set_primary_key(qw/arbitrary_id report_id/);
25
2619µs1247µs__PACKAGE__->belongs_to ( report => 'Tapper::Schema::ReportsDB::Result::Report', { 'foreign.id' => 'self.report_id' });
# spent 247µs making 1 call to DBIx::Class::Relationship::BelongsTo::belongs_to
27
28# -------------------- methods on results --------------------
29
30
31sub groupreports {
32 my ($self) = @_;
33
34 my @report_ids;
35 my $rg = $self->result_source->schema->resultset('ReportgroupArbitrary')->search({ arbitrary_id => $self->arbitrary_id });
36 while (my $rg_entry = $rg->next) {
37 push @report_ids, $rg_entry->report_id;
38 }
39 return $self->result_source->schema->resultset('Report')->search({ id => [ -or => [ @report_ids ] ] });
40}
41
42114µs1;
43
44__END__