Profile of DBIx/Class/Relationship/ProxyMethods.pm

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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	14µs	21µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@4
1	1	1	12µs	67µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@6
1	1	1	9µs	36µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@7
1	1	1	8µs	12µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@5
1	1	1	7µs	78µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@8
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	32µs	2	16µ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	105µs	2	67µs	# spent 67µs (12+55) within DBIx::Class::Relationship::ProxyMethods::BEGIN@6 which was called: # once (12µs+55µs) by Class::C3::Componentised::ensure_class_loaded at line 6 use base 'DBIx::Class'; # spent 67µs making 1 call to DBIx::Class::Relationship::ProxyMethods::BEGIN@6 # spent 55µs making 1 call to base::import, recursion: max depth 1, sum of overlapping time 55µs
7	2	55µs	2	64µs	# spent 36µs (9+27) within DBIx::Class::Relationship::ProxyMethods::BEGIN@7 which was called: # once (9µs+27µs) by Class::C3::Componentised::ensure_class_loaded at line 7 use DBIx::Class::_Util 'quote_sub'; # spent 36µs making 1 call to DBIx::Class::Relationship::ProxyMethods::BEGIN@7 # spent 27µs making 1 call to Exporter::import
8	2	406µs	2	148µs	# spent 78µs (7+70) within DBIx::Class::Relationship::ProxyMethods::BEGIN@8 which was called: # once (7µs+70µs) by Class::C3::Componentised::ensure_class_loaded at line 8 use namespace::clean; # spent 78µs making 1 call to DBIx::Class::Relationship::ProxyMethods::BEGIN@8 # spent 70µ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	160µs			my ($class, $rel, $info) = @_;
17	319	285µs			if (my $proxy_args = $info->{attrs}{proxy}) {
18					$class->proxy_to_related($rel, $proxy_args);
19					}
20	319	2.44ms	319	1.46ms	$class->next::method($rel, $info); # spent 1.46ms making 319 calls to next::method, avg 5µ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	44µs	1; # spent 44µs making 1 call to B::Hooks::EndOfScope::XS::__ANON__