Profile of DBIx/Class/Relationship/ProxyMethods.pm

Filename	/usr/share/perl5/DBIx/Class/Relationship/ProxyMethods.pm
Statements	Executed 969 statements in 8.22ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	16µs	81µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@6
1	1	1	14µs	21µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@4
1	1	1	8µs	81µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@8
1	1	1	8µs	30µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@7
1	1	1	8µs	12µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@5
0	0	0	0s	0s	DBIx::Class::Relationship::ProxyMethods::_build_proxy_map_from
0	0	0	0s	0s	DBIx::Class::Relationship::ProxyMethods::proxy_to_related
0	0	0	0s	0s	DBIx::Class::Relationship::ProxyMethods::register_relationship

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package # hide from PAUSE
2					DBIx::Class::Relationship::ProxyMethods;
3
4	2	36µs	2	28µs	# spent 21µs (14+7) within DBIx::Class::Relationship::ProxyMethods::BEGIN@4 which was called: # once (14µs+7µs) by Class::C3::Componentised::ensure_class_loaded at line 4 use strict; # spent 21µs making 1 call to DBIx::Class::Relationship::ProxyMethods::BEGIN@4 # spent 7µs making 1 call to strict::import
5	2	34µs	2	17µs	# spent 12µs (8+4) within DBIx::Class::Relationship::ProxyMethods::BEGIN@5 which was called: # once (8µs+4µs) by Class::C3::Componentised::ensure_class_loaded at line 5 use warnings; # spent 12µs making 1 call to DBIx::Class::Relationship::ProxyMethods::BEGIN@5 # spent 4µs making 1 call to warnings::import
6	2	107µs	2	81µs	# spent 81µs (16+65) within DBIx::Class::Relationship::ProxyMethods::BEGIN@6 which was called: # once (16µs+65µs) by Class::C3::Componentised::ensure_class_loaded at line 6 use base 'DBIx::Class'; # spent 81µs making 1 call to DBIx::Class::Relationship::ProxyMethods::BEGIN@6 # spent 65µs making 1 call to base::import, recursion: max depth 1, sum of overlapping time 65µs
7	2	50µs	2	51µs	# spent 30µs (8+21) within DBIx::Class::Relationship::ProxyMethods::BEGIN@7 which was called: # once (8µs+21µs) by Class::C3::Componentised::ensure_class_loaded at line 7 use DBIx::Class::_Util 'quote_sub'; # spent 30µs making 1 call to DBIx::Class::Relationship::ProxyMethods::BEGIN@7 # spent 21µs making 1 call to Exporter::import
8	2	899µs	2	154µs	# spent 81µs (8+73) within DBIx::Class::Relationship::ProxyMethods::BEGIN@8 which was called: # once (8µs+73µs) by Class::C3::Componentised::ensure_class_loaded at line 8 use namespace::clean; # spent 81µs making 1 call to DBIx::Class::Relationship::ProxyMethods::BEGIN@8 # spent 73µs making 1 call to namespace::clean::import
9
10	1	2µs			our %_pod_inherit_config =
11					(
12					class_map => { 'DBIx::Class::Relationship::ProxyMethods' => 'DBIx::Class::Relationship' }
13					);
14
15					sub register_relationship {
16	319	200µs			my ($class, $rel, $info) = @_;
17	319	251µs			if (my $proxy_args = $info->{attrs}{proxy}) {
18					$class->proxy_to_related($rel, $proxy_args);
19					}
20	319	6.63ms	319	1.36ms	$class->next::method($rel, $info); # spent 1.36ms making 319 calls to next::method, avg 4µs/call
21					}
22
23					sub proxy_to_related {
24					my ($class, $rel, $proxy_args) = @_;
25					my %proxy_map = $class->_build_proxy_map_from($proxy_args);
26
27					quote_sub "${class}::$_", sprintf( <<'EOC', $rel, $proxy_map{$_} )
28					my $self = shift;
29					my $relobj = $self->%1$s;
30					if (@_ && !defined $relobj) {
31					$relobj = $self->create_related( %1$s => { %2$s => $_[0] } );
32					@_ = ();
33					}
34					$relobj ? $relobj->%2$s(@_) : undef;
35					EOC
36					for keys %proxy_map
37					}
38
39					sub _build_proxy_map_from {
40					my ( $class, $proxy_arg ) = @_;
41					my $ref = ref $proxy_arg;
42
43					if ($ref eq 'HASH') {
44					return %$proxy_arg;
45					}
46					elsif ($ref eq 'ARRAY') {
47					return map {
48					(ref $_ eq 'HASH')
49					? (%$_)
50					: ($_ => $_)
51					} @$proxy_arg;
52					}
53					elsif ($ref) {
54					$class->throw_exception("Unable to process the 'proxy' argument $proxy_arg");
55					}
56					else {
57					return ( $proxy_arg => $proxy_arg );
58					}
59					}
60
61	1	3µs	1	536µs	1; # spent 536µs making 1 call to B::Hooks::EndOfScope::XS::__ANON__