Profile of DBIx/Class/AccessorGroup.pm

Filename	/usr/share/perl5/DBIx/Class/AccessorGroup.pm
Statements	Executed 1967 statements in 5.28ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
355	1	1	3.74ms	15.0ms	DBIx::Class::AccessorGroup::get_component_class
1	1	1	73µs	95µs	DBIx::Class::AccessorGroup::::BEGIN@4DBIx::Class::AccessorGroup::BEGIN@4
5	1	1	50µs	90µs	DBIx::Class::AccessorGroup::set_component_class
1	1	1	27µs	9.48ms	DBIx::Class::AccessorGroup::::BEGIN@6DBIx::Class::AccessorGroup::BEGIN@6
1	1	1	27µs	46µs	DBIx::Class::AccessorGroup::::BEGIN@3DBIx::Class::AccessorGroup::BEGIN@3
1	1	1	26µs	236µs	DBIx::Class::AccessorGroup::::BEGIN@8DBIx::Class::AccessorGroup::BEGIN@8
1	1	1	21µs	79µs	DBIx::Class::AccessorGroup::::BEGIN@7DBIx::Class::AccessorGroup::BEGIN@7
1	1	1	17µs	31µs	DBIx::Class::AccessorGroup::::BEGIN@21DBIx::Class::AccessorGroup::BEGIN@21

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package DBIx::Class::AccessorGroup;
2
3	2	129µs	2	64µs	# spent 46µs (27+19) within DBIx::Class::AccessorGroup::BEGIN@3 which was called: # once (27µs+19µs) by base::import at line 3 use strict; # spent 46µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@3 # spent 19µs making 1 call to strict::import
4	2	136µs	2	117µs	# spent 95µs (73+22) within DBIx::Class::AccessorGroup::BEGIN@4 which was called: # once (73µs+22µs) by base::import at line 4 use warnings; # spent 95µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@4 # spent 22µs making 1 call to warnings::import
5
6	2	342µs	2	9.48ms	# spent 9.48ms (27µs+9.45) within DBIx::Class::AccessorGroup::BEGIN@6 which was called: # once (27µs+9.45ms) by base::import at line 6 use base qw/Class::Accessor::Grouped/; # spent 9.48ms making 1 call to DBIx::Class::AccessorGroup::BEGIN@6 # spent 9.45ms making 1 call to base::import, recursion: max depth 3, sum of overlapping time 9.45ms
7	2	102µs	2	137µs	# spent 79µs (21+58) within DBIx::Class::AccessorGroup::BEGIN@7 which was called: # once (21µs+58µs) by base::import at line 7 use Scalar::Util qw/weaken blessed/; # spent 79µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@7 # spent 58µs making 1 call to Exporter::import
8	2	413µs	2	445µs	# spent 236µs (26+209) within DBIx::Class::AccessorGroup::BEGIN@8 which was called: # once (26µs+209µs) by base::import at line 8 use namespace::clean; # spent 236µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@8 # spent 209µs making 1 call to namespace::clean::import
9
10	1	200ns			my $successfully_loaded_components;
11
12					# spent 15.0ms (3.74+11.2) within DBIx::Class::AccessorGroup::get_component_class which was called 355 times, avg 42µs/call: # 355 times (3.74ms+11.2ms) by DBIx::Class::ResultSource::result_class or DBIx::Class::ResultSource::resultset_class or DBIx::Class::Storage::DBI::sql_maker_class at line 2 of (eval 167)[Class/Accessor/Grouped.pm:764], avg 42µs/call sub get_component_class {
13	355	527µs	355	1.81ms	my $class = $_[0]->get_inherited($_[1]); # spent 1.81ms making 355 calls to Class::Accessor::Grouped::get_inherited, avg 5µs/call
14
15					# It's already an object, just go for it.
16	355	749µs	355	165µs	return $class if blessed $class; # spent 165µs making 355 calls to Scalar::Util::blessed, avg 465ns/call
17
18	355	287µs			if (defined $class and ! $successfully_loaded_components->{$class} ) {
19	176	346µs	176	9.05ms	$_[0]->ensure_class_loaded($class); # spent 9.05ms making 176 calls to Class::C3::Componentised::ensure_class_loaded, avg 51µs/call
20
21	2	172µs	2	45µs	# spent 31µs (17+14) within DBIx::Class::AccessorGroup::BEGIN@21 which was called: # once (17µs+14µs) by base::import at line 21 no strict 'refs'; # spent 31µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@21 # spent 14µs making 1 call to strict::unimport
22					$successfully_loaded_components->{$class}
23					= ${"${class}::__LOADED__BY__DBIC__CAG__COMPONENT_CLASS__"}
24	176	667µs			= do { \(my $anon = 'loaded') };
25	176	669µs	176	211µs	weaken($successfully_loaded_components->{$class}); # spent 211µs making 176 calls to Scalar::Util::weaken, avg 1µs/call
26					}
27
28	355	685µs			$class;
29					};
30
31					# spent 90µs (50+40) within DBIx::Class::AccessorGroup::set_component_class which was called 5 times, avg 18µs/call: # 5 times (50µs+40µs) by DBIx::Class::Storage::DBI::datetime_parser_type or DBIx::Class::Storage::DBI::sql_maker_class or DBIx::Class::Storage::cursor_class at line 2 of (eval 167)[Class/Accessor/Grouped.pm:764], avg 18µs/call sub set_component_class {
32	5	49µs	5	40µs	shift->set_inherited(@_); # spent 40µs making 5 calls to Class::Accessor::Grouped::set_inherited, avg 8µs/call
33					}
34
35	1	4µs			1;
36
37					=head1 NAME
38
39					DBIx::Class::AccessorGroup - See Class::Accessor::Grouped
40
41					=head1 SYNOPSIS
42
43					=head1 DESCRIPTION
44
45					This class now exists in its own right on CPAN as Class::Accessor::Grouped
46
47					=head1 FURTHER QUESTIONS?
48
49					Check the list of L<additional DBIC resources\|DBIx::Class/GETTING HELP/SUPPORT>.
50
51					=head1 COPYRIGHT AND LICENSE
52
53					This module is free software L<copyright\|DBIx::Class/COPYRIGHT AND LICENSE>
54					by the L<DBIx::Class (DBIC) authors\|DBIx::Class/AUTHORS>. You can
55					redistribute it and/or modify it under the same terms as the
56					L<DBIx::Class library\|DBIx::Class/COPYRIGHT AND LICENSE>.
57
58			1	34µs	=cut # spent 34µs making 1 call to B::Hooks::EndOfScope::XS::__ANON__