← Index
Performance Profile   « block view • line view • sub view »
For /wise/base/deliv/dev/bin/getfix
  Run on Thu May 20 15:30:03 2010
Reported on Thu May 20 16:25:34 2010

File/wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/ResultSourceProxy.pm
Statements Executed27870
Total Time0.306723999999982 seconds

Subroutines — ordered by exclusive time
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
27739220.207981.55370DBIx::Class::ResultSourceProxy::has_column
5550.000580.01491DBIx::Class::ResultSourceProxy::add_columns
2227.2e-50.00053DBIx::Class::ResultSourceProxy::add_relationship
4444.7e-50.00074DBIx::Class::ResultSourceProxy::set_primary_key
1113.7e-57.9e-5DBIx::Class::ResultSourceProxy::columns
5113.3e-50.00037DBIx::Class::ResultSourceProxy::get_inherited_ro_instance
1111.3e-57.9e-5DBIx::Class::ResultSourceProxy::primary_columns
00000DBIx::Class::ResultSourceProxy::BEGIN
00000DBIx::Class::ResultSourceProxy::add_unique_constraint
00000DBIx::Class::ResultSourceProxy::column_info
00000DBIx::Class::ResultSourceProxy::column_info_from_storage
00000DBIx::Class::ResultSourceProxy::iterator_class
00000DBIx::Class::ResultSourceProxy::relationship_info
00000DBIx::Class::ResultSourceProxy::relationships
00000DBIx::Class::ResultSourceProxy::remove_columns
00000DBIx::Class::ResultSourceProxy::result_class
00000DBIx::Class::ResultSourceProxy::resultset_attributes
00000DBIx::Class::ResultSourceProxy::resultset_class
00000DBIx::Class::ResultSourceProxy::set_inherited_ro_instance
00000DBIx::Class::ResultSourceProxy::source_info
00000DBIx::Class::ResultSourceProxy::unique_constraint_columns
00000DBIx::Class::ResultSourceProxy::unique_constraint_names
00000DBIx::Class::ResultSourceProxy::unique_constraints

LineStmts.Exclusive
Time		Avg.Code
1package # hide from PAUSE
2 DBIx::Class::ResultSourceProxy;
3
434.1e-51.4e-5use strict;
# spent 10µs making 1 call to strict::import
532.9e-59.7e-6use warnings;
# spent 19µs making 1 call to warnings::import
6
732.9e-59.7e-6use base qw/DBIx::Class/;
# spent 74µs making 1 call to base::import, max recursion depth 1
833.7e-51.2e-5use Scalar::Util qw/blessed/;
# spent 63µs making 1 call to Exporter::import
930.000720.00024use Carp::Clan qw/^DBIx::Class/;
# spent 98µs making 1 call to Carp::Clan::import
10
11sub iterator_class { shift->result_source_instance->resultset_class(@_) }
12sub resultset_class { shift->result_source_instance->resultset_class(@_) }
13sub result_class { shift->result_source_instance->result_class(@_) }
14sub source_info { shift->result_source_instance->source_info(@_) }
15
16sub set_inherited_ro_instance {
17 my $self = shift;
18
19 croak "Cannot set @{[shift]} on an instance" if blessed $self;
20
21 return $self->set_inherited(@_);
22}
23
24
# spent 374µs (33+341) within DBIx::Class::ResultSourceProxy::get_inherited_ro_instance which was called 5 times, avg 75µs/call: # 5 times (33µs+341µs) at line 6 of (eval 90)[/wise/base/static/lib/perl5/site_perl/5.10.0/Class/Accessor/Grouped.pm:156] at line 156 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/Accessor/Grouped.pm, avg 75µs/call
sub get_inherited_ro_instance {
2552.8e-55.6e-6 return shift->get_inherited(@_);
# spent 341µs making 5 calls to Class::Accessor::Grouped::get_inherited, avg 68µs/call
26}
27
2811.5e-51.5e-5__PACKAGE__->mk_group_accessors('inherited_ro_instance' => 'source_name');
# spent 162µs making 1 call to Class::Accessor::Grouped::mk_group_accessors
29
30
31sub resultset_attributes {
32 shift->result_source_instance->resultset_attributes(@_);
33}
34
35
# spent 14.9ms (582µs+14.3) within DBIx::Class::ResultSourceProxy::add_columns which was called 5 times, avg 2.98ms/call: # once (304µs+9.21ms) at line 12 of /wise/base/deliv/dev/lib/perl/WISE/DB/FrameIndex/Frame.pm # once (134µs+3.24ms) at line 12 of /wise/base/deliv/dev/lib/perl/WISE/DB/FrameIndex/Scan.pm # once (53µs+1.01ms) at line 13 of /wise/base/deliv/dev/lib/perl/WISE/DB/FrameIndex/Tile.pm # once (51µs+431µs) at line 11 of /wise/base/deliv/dev/lib/perl/WISE/DB/FrameIndex/MissionPlan.pm # once (40µs+429µs) at line 12 of /wise/base/deliv/dev/lib/perl/WISE/DB/FrameIndex/HouseKeeping.pm
sub add_columns {
36200.000211.0e-5 my ($class, @cols) = @_;
37 my $source = $class->result_source_instance;
# spent 105µs making 5 calls to Class::Accessor::Grouped::__ANON__[(eval 0)[/wise/base/static/lib/perl5/site_perl/5.10.0/Class/Accessor/Grouped.pm:156]:8], avg 21µs/call
38 $source->add_columns(@cols);
# spent 711µs making 5 calls to DBIx::Class::ResultSource::add_columns, avg 142µs/call
39 foreach my $c (grep { !ref } @cols) {
40730.000871.2e-5 $class->register_column($c => $source->column_info($c));
# spent 10.0ms making 73 calls to DBIx::Class::Row::register_column, avg 137µs/call # spent 3.48ms making 73 calls to DBIx::Class::ResultSource::column_info, avg 48µs/call
41 }
42}
43
4412.0e-62.0e-6*add_column = \&add_columns;
45
46
# spent 1.55s (208ms+1.35) within DBIx::Class::ResultSourceProxy::has_column which was called 27739 times, avg 56µs/call: # 27738 times (208ms+1.35s) by DBIx::Class::Row::get_column at line 374 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Row.pm, avg 56µs/call # once (12µs+51µs) by DBIx::Class::Relationship::HasMany::has_many at line 35 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship/HasMany.pm
sub has_column {
47277390.304511.1e-5 shift->result_source_instance->has_column(@_);
# spent 765ms making 27739 calls to Class::Accessor::Grouped::__ANON__[(eval 0)[/wise/base/static/lib/perl5/site_perl/5.10.0/Class/Accessor/Grouped.pm:156]:8], avg 28µs/call # spent 581ms making 27739 calls to DBIx::Class::ResultSource::has_column, avg 21µs/call
48}
49
50sub column_info {
51 shift->result_source_instance->column_info(@_);
52}
53
54sub column_info_from_storage {
55 shift->result_source_instance->column_info_from_storage(@_);
56}
57
58
# spent 79µs (37+42) within DBIx::Class::ResultSourceProxy::columns which was called # once (37µs+42µs) by DBIx::Class::Relationship::HasMany::has_many at line 34 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship/HasMany.pm
sub columns {
5914.0e-54.0e-5 shift->result_source_instance->columns(@_);
# spent 22µs making 1 call to Class::Accessor::Grouped::__ANON__[(eval 0)[/wise/base/static/lib/perl5/site_perl/5.10.0/Class/Accessor/Grouped.pm:156]:8] # spent 20µs making 1 call to DBIx::Class::ResultSource::columns
60}
61
62sub remove_columns {
63 shift->result_source_instance->remove_columns(@_);
64}
65
66100*remove_column = \&remove_columns;
67
68
# spent 742µs (47+695) within DBIx::Class::ResultSourceProxy::set_primary_key which was called 4 times, avg 186µs/call: # once (11µs+220µs) at line 77 of /wise/base/deliv/dev/lib/perl/WISE/DB/FrameIndex/Frame.pm # once (14µs+189µs) at line 42 of /wise/base/deliv/dev/lib/perl/WISE/DB/FrameIndex/Scan.pm # once (10µs+145µs) at line 15 of /wise/base/deliv/dev/lib/perl/WISE/DB/FrameIndex/MissionPlan.pm # once (12µs+141µs) at line 16 of /wise/base/deliv/dev/lib/perl/WISE/DB/FrameIndex/HouseKeeping.pm
sub set_primary_key {
6946.6e-51.7e-5 shift->result_source_instance->set_primary_key(@_);
# spent 601µs making 4 calls to DBIx::Class::ResultSource::set_primary_key, avg 150µs/call # spent 94µs making 4 calls to Class::Accessor::Grouped::__ANON__[(eval 0)[/wise/base/static/lib/perl5/site_perl/5.10.0/Class/Accessor/Grouped.pm:156]:8], avg 24µs/call
70}
71
72
# spent 79µs (13+66) within DBIx::Class::ResultSourceProxy::primary_columns which was called # once (13µs+66µs) by DBIx::Class::Relationship::HasMany::has_many at line 12 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship/HasMany.pm
sub primary_columns {
7311.8e-51.8e-5 shift->result_source_instance->primary_columns(@_);
# spent 44µs making 1 call to Class::Accessor::Grouped::__ANON__[(eval 0)[/wise/base/static/lib/perl5/site_perl/5.10.0/Class/Accessor/Grouped.pm:156]:8] # spent 22µs making 1 call to DBIx::Class::ResultSource::primary_columns
74}
75
76sub add_unique_constraint {
77 shift->result_source_instance->add_unique_constraint(@_);
78}
79
80sub unique_constraints {
81 shift->result_source_instance->unique_constraints(@_);
82}
83
84sub unique_constraint_names {
85 shift->result_source_instance->unique_constraint_names(@_);
86}
87
88sub unique_constraint_columns {
89 shift->result_source_instance->unique_constraint_columns(@_);
90}
91
92
# spent 531µs (72+459) within DBIx::Class::ResultSourceProxy::add_relationship which was called 2 times, avg 266µs/call: # once (45µs+280µs) by DBIx::Class::Relationship::HasOne::_has_one at line 57 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship/HasOne.pm # once (27µs+179µs) by DBIx::Class::Relationship::HasMany::has_many at line 47 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship/HasMany.pm
sub add_relationship {
9389.9e-51.2e-5 my ($class, $rel, @rest) = @_;
94 my $source = $class->result_source_instance;
# spent 44µs making 2 calls to Class::Accessor::Grouped::__ANON__[(eval 0)[/wise/base/static/lib/perl5/site_perl/5.10.0/Class/Accessor/Grouped.pm:156]:8], avg 22µs/call
95 $source->add_relationship($rel => @rest);
# spent 157µs making 2 calls to DBIx::Class::ResultSource::add_relationship, avg 79µs/call
96 $class->register_relationship($rel => $source->relationship_info($rel));
# spent 209µs making 2 calls to DBIx::Class::Relationship::Accessor::register_relationship, avg 104µs/call # spent 49µs making 2 calls to DBIx::Class::ResultSource::relationship_info, avg 24µs/call
97}
98
99sub relationships {
100 shift->result_source_instance->relationships(@_);
101}
102
103sub relationship_info {
104 shift->result_source_instance->relationship_info(@_);
105}
106
10716.0e-66.0e-61;

Report produced by the NYTProf 2.07 Perl profiler, developed by Tim Bunce and Adam Kaplan.