Profile of DBIx/Class/AccessorGroup.pm

Filename	/usr/share/perl5/DBIx/Class/AccessorGroup.pm
Statements	Executed 12 statements in 24µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
357	1	1	3.33ms	6.23ms	DBIx::Class::AccessorGroup::get_component_class
5	1	1	52µs	94µs	DBIx::Class::AccessorGroup::set_component_class
1	1	1	15µs	22µs	DBIx::Class::AccessorGroup::::BEGIN@3DBIx::Class::AccessorGroup::BEGIN@3
1	1	1	11µs	5.68ms	DBIx::Class::AccessorGroup::::BEGIN@6DBIx::Class::AccessorGroup::BEGIN@6
1	1	1	10µs	43µs	DBIx::Class::AccessorGroup::::BEGIN@7DBIx::Class::AccessorGroup::BEGIN@7
1	1	1	9µs	141µs	DBIx::Class::AccessorGroup::::BEGIN@8DBIx::Class::AccessorGroup::BEGIN@8
1	1	1	9µs	16µs	DBIx::Class::AccessorGroup::::BEGIN@4DBIx::Class::AccessorGroup::BEGIN@4
1	1	1	8µs	14µ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	30µs	# spent 22µs (15+8) within DBIx::Class::AccessorGroup::BEGIN@3 which was called: # once (15µs+8µs) by base::import at line 3 use strict; # spent 22µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@3 # spent 8µs making 1 call to strict::import
4			2	23µs	# spent 16µs (9+7) within DBIx::Class::AccessorGroup::BEGIN@4 which was called: # once (9µs+7µs) by base::import at line 4 use warnings; # spent 16µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@4 # spent 7µs making 1 call to warnings::import
5
6			2	5.68ms	# spent 5.68ms (11µs+5.67) within DBIx::Class::AccessorGroup::BEGIN@6 which was called: # once (11µs+5.67ms) by base::import at line 6 use base qw/Class::Accessor::Grouped/; # spent 5.68ms making 1 call to DBIx::Class::AccessorGroup::BEGIN@6 # spent 5.67ms making 1 call to base::import, recursion: max depth 3, sum of overlapping time 5.67ms
7			2	75µs	# spent 43µs (10+32) within DBIx::Class::AccessorGroup::BEGIN@7 which was called: # once (10µs+32µs) by base::import at line 7 use Scalar::Util qw/weaken blessed/; # spent 43µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@7 # spent 32µs making 1 call to Exporter::import
8			2	273µs	# spent 141µs (9+132) within DBIx::Class::AccessorGroup::BEGIN@8 which was called: # once (9µs+132µs) by base::import at line 8 use namespace::clean; # spent 141µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@8 # spent 132µs making 1 call to namespace::clean::import
9
10					my $successfully_loaded_components;
11
12					# spent 6.23ms (3.33+2.90) within DBIx::Class::AccessorGroup::get_component_class which was called 357 times, avg 17µs/call: # 357 times (3.33ms+2.90ms) by DBIx::Class::ResultSource::result_class or DBIx::Class::ResultSource::resultset_class at line 2 of (eval 167)[Class/Accessor/Grouped.pm:764], avg 17µs/call sub get_component_class {
13	3	6µs	357	1.74ms	my $class = $_[0]->get_inherited($_[1]); # spent 1.74ms making 357 calls to Class::Accessor::Grouped::get_inherited, avg 5µs/call
14
15					# It's already an object, just go for it.
16	3	8µs	357	183µs	return $class if blessed $class; # spent 183µs making 357 calls to Scalar::Util::blessed, avg 513ns/call
17
18	3	4µs			if (defined $class and ! $successfully_loaded_components->{$class} ) {
19			175	799µs	$_[0]->ensure_class_loaded($class); # spent 799µs making 175 calls to Class::C3::Componentised::ensure_class_loaded, avg 5µs/call
20
21			2	20µs	# spent 14µs (8+6) within DBIx::Class::AccessorGroup::BEGIN@21 which was called: # once (8µs+6µs) by base::import at line 21 no strict 'refs'; # spent 14µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@21 # spent 6µs making 1 call to strict::unimport
22					$successfully_loaded_components->{$class}
23					= ${"${class}::__LOADED__BY__DBIC__CAG__COMPONENT_CLASS__"}
24					= do { \(my $anon = 'loaded') };
25			175	184µs	weaken($successfully_loaded_components->{$class}); # spent 184µs making 175 calls to Scalar::Util::weaken, avg 1µs/call
26					}
27
28	3	7µs			$class;
29					};
30
31					# spent 94µs (52+42) within DBIx::Class::AccessorGroup::set_component_class which was called 5 times, avg 19µs/call: # 5 times (52µs+42µ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 19µs/call sub set_component_class {
32			5	42µs	shift->set_inherited(@_); # spent 42µs making 5 calls to Class::Accessor::Grouped::set_inherited, avg 8µs/call
33					}
34
35					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	69µs	=cut # spent 69µs making 1 call to B::Hooks::EndOfScope::XS::__ANON__