Profile of DBIx/Class/Relationship/ProxyMethods.pm

Filename	/usr/share/perl5/DBIx/Class/Relationship/ProxyMethods.pm
Statements	Executed 0 statements in 0s

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	17µs	27µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@4
1	1	1	14µs	76µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@6
1	1	1	9µs	37µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@7
1	1	1	9µs	95µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@8
1	1	1	9µs	16µ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	Calls	Time in subs	Code
1			package # hide from PAUSE
2			DBIx::Class::Relationship::ProxyMethods;
3
4	2	37µs	# spent 27µs (17+10) within DBIx::Class::Relationship::ProxyMethods::BEGIN@4 which was called: # once (17µs+10µs) by Class::C3::Componentised::ensure_class_loaded at line 4 use strict; # spent 27µs making 1 call to DBIx::Class::Relationship::ProxyMethods::BEGIN@4 # spent 10µs making 1 call to strict::import
5	2	24µs	# spent 16µs (9+7) within DBIx::Class::Relationship::ProxyMethods::BEGIN@5 which was called: # once (9µs+7µs) by Class::C3::Componentised::ensure_class_loaded at line 5 use warnings; # spent 16µs making 1 call to DBIx::Class::Relationship::ProxyMethods::BEGIN@5 # spent 8µs making 1 call to warnings::import
6	2	76µs	# spent 76µs (14+63) within DBIx::Class::Relationship::ProxyMethods::BEGIN@6 which was called: # once (14µs+63µs) by Class::C3::Componentised::ensure_class_loaded at line 6 use base 'DBIx::Class'; # spent 76µs making 1 call to DBIx::Class::Relationship::ProxyMethods::BEGIN@6 # spent 63µs making 1 call to base::import, recursion: max depth 1, sum of overlapping time 63µs
7	2	64µs	# spent 37µ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 37µs making 1 call to DBIx::Class::Relationship::ProxyMethods::BEGIN@7 # spent 27µs making 1 call to Exporter::import
8	2	182µs	# spent 95µs (9+86) within DBIx::Class::Relationship::ProxyMethods::BEGIN@8 which was called: # once (9µs+86µs) by Class::C3::Componentised::ensure_class_loaded at line 8 use namespace::clean; # spent 95µs making 1 call to DBIx::Class::Relationship::ProxyMethods::BEGIN@8 # spent 86µs making 1 call to namespace::clean::import
9
10			our %_pod_inherit_config =
11			(
12			class_map => { 'DBIx::Class::Relationship::ProxyMethods' => 'DBIx::Class::Relationship' }
13			);
14
15			sub register_relationship {
16			my ($class, $rel, $info) = @_;
17			if (my $proxy_args = $info->{attrs}{proxy}) {
18			$class->proxy_to_related($rel, $proxy_args);
19			}
20	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	48µs	1; # spent 48µs making 1 call to B::Hooks::EndOfScope::XS::__ANON__