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

Filename/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/DBIx/Class/AccessorGroup.pm
StatementsExecuted 105476 statements in 240ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
3510255253ms669msDBIx::Class::AccessorGroup::::get_component_classDBIx::Class::AccessorGroup::get_component_class
124494µs206µsDBIx::Class::AccessorGroup::::set_component_classDBIx::Class::AccessorGroup::set_component_class
11112µs15µsDBIx::Class::AccessorGroup::::BEGIN@3DBIx::Class::AccessorGroup::BEGIN@3
1119µs46µsDBIx::Class::AccessorGroup::::BEGIN@7DBIx::Class::AccessorGroup::BEGIN@7
1119µs4.05msDBIx::Class::AccessorGroup::::BEGIN@6DBIx::Class::AccessorGroup::BEGIN@6
1118µs20µsDBIx::Class::AccessorGroup::::BEGIN@4DBIx::Class::AccessorGroup::BEGIN@4
1118µs170µsDBIx::Class::AccessorGroup::::BEGIN@8DBIx::Class::AccessorGroup::BEGIN@8
1117µs16µsDBIx::Class::AccessorGroup::::BEGIN@18DBIx::Class::AccessorGroup::BEGIN@18
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package DBIx::Class::AccessorGroup;
2
3320µs218µs
# spent 15µs (12+3) within DBIx::Class::AccessorGroup::BEGIN@3 which was called: # once (12µs+3µs) by base::import at line 3
use strict;
# spent 15µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@3 # spent 3µs making 1 call to strict::import
4321µs232µs
# spent 20µs (8+12) within DBIx::Class::AccessorGroup::BEGIN@4 which was called: # once (8µs+12µs) by base::import at line 4
use warnings;
# spent 20µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@4 # spent 12µs making 1 call to warnings::import
5
6328µs24.05ms
# spent 4.05ms (9µs+4.04) within DBIx::Class::AccessorGroup::BEGIN@6 which was called: # once (9µs+4.04ms) by base::import at line 6
use base qw/Class::Accessor::Grouped/;
# spent 4.05ms making 1 call to DBIx::Class::AccessorGroup::BEGIN@6 # spent 4.04ms making 1 call to base::import, recursion: max depth 1, sum of overlapping time 4.04ms
7322µs282µs
# spent 46µs (9+36) within DBIx::Class::AccessorGroup::BEGIN@7 which was called: # once (9µs+36µs) by base::import at line 7
use Scalar::Util qw/weaken/;
# spent 46µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@7 # spent 36µs making 1 call to Exporter::import
8363µs2332µs
# spent 170µs (8+162) within DBIx::Class::AccessorGroup::BEGIN@8 which was called: # once (8µs+162µs) by base::import at line 8
use namespace::clean;
# spent 170µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@8 # spent 162µs making 1 call to namespace::clean::import
9
101100nsmy $successfully_loaded_components;
11
12
# spent 669ms (253+416) within DBIx::Class::AccessorGroup::get_component_class which was called 35102 times, avg 19µs/call: # 22705 times (141ms+180ms) by DBIx::Class::ResultSource::result_class at line 2 of (eval 296)[Class/Accessor/Grouped.pm:807], avg 14µs/call # 7692 times (81.4ms+63.8ms) by DBIx::Class::ResultSource::resultset_class at line 2 of (eval 295)[Class/Accessor/Grouped.pm:807], avg 19µs/call # 4699 times (30.7ms+148ms) by DBIx::Class::Storage::cursor_class at line 2 of (eval 1390)[Class/Accessor/Grouped.pm:807], avg 38µs/call # 5 times (114µs+13.4ms) by DBIx::Class::Storage::DBI::sql_maker_class at line 2 of (eval 1394)[Class/Accessor/Grouped.pm:807], avg 2.71ms/call # once (31µs+10.7ms) by DBIx::Class::Storage::DBI::datetime_parser_type at line 2 of (eval 1395)[Class/Accessor/Grouped.pm:807]
sub get_component_class {
13105306239ms35102389ms my $class = $_[0]->get_inherited($_[1]);
# spent 389ms making 35102 calls to Class::Accessor::Grouped::get_inherited, avg 11µs/call
14
15138677µs if (defined $class and ! $successfully_loaded_components->{$class} ) {
164626.4ms $_[0]->ensure_class_loaded($class);
# spent 26.4ms making 46 calls to Class::C3::Componentised::ensure_class_loaded, avg 574µs/call, recursion: max depth 1, sum of overlapping time 12µs
17
18381µs225µs
# spent 16µs (7+9) within DBIx::Class::AccessorGroup::BEGIN@18 which was called: # once (7µs+9µs) by base::import at line 18
no strict 'refs';
# spent 16µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@18 # spent 9µs making 1 call to strict::unimport
19 $successfully_loaded_components->{$class}
20 = ${"${class}::__LOADED__BY__DBIC__CAG__COMPONENT_CLASS__"}
21 = do { \(my $anon = 'loaded') };
224690µs weaken($successfully_loaded_components->{$class});
# spent 90µs making 46 calls to Scalar::Util::weaken, avg 2µs/call
23 }
24
25 $class;
26};
27
28
# spent 206µs (94+112) within DBIx::Class::AccessorGroup::set_component_class which was called 12 times, avg 17µs/call: # 6 times (40µs+58µs) by DBIx::Class::ResultSource::resultset_class at line 2 of (eval 295)[Class/Accessor/Grouped.pm:807], avg 16µs/call # 2 times (28µs+24µs) by DBIx::Class::Storage::cursor_class at line 2 of (eval 1390)[Class/Accessor/Grouped.pm:807], avg 26µs/call # 2 times (20µs+19µs) by DBIx::Class::Storage::DBI::sql_maker_class at line 2 of (eval 1394)[Class/Accessor/Grouped.pm:807], avg 20µs/call # 2 times (5µs+11µs) by DBIx::Class::Storage::DBI::datetime_parser_type at line 2 of (eval 1395)[Class/Accessor/Grouped.pm:807], avg 8µs/call
sub set_component_class {
291295µs12112µs shift->set_inherited(@_);
# spent 112µs making 12 calls to Class::Accessor::Grouped::set_inherited, avg 9µs/call
30}
31
3213µs1;
33
34=head1 NAME
35
36DBIx::Class::AccessorGroup - See Class::Accessor::Grouped
37
38=head1 SYNOPSIS
39
40=head1 DESCRIPTION
41
42This class now exists in its own right on CPAN as Class::Accessor::Grouped
43
44=head1 AUTHORS
45
46Matt S. Trout <mst@shadowcatsystems.co.uk>
47
48=head1 LICENSE
49
50You may distribute this code under the same terms as Perl itself.
51
52=cut
5315µs1111µs