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	14µs	21µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@4
1	1	1	12µs	33µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@7
1	1	1	12µs	67µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@6
1	1	1	11µs	15µs	DBIx::Class::Relationship::ProxyMethods::BEGIN@5
1	1	1	6µs	83µ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	Calls	Time in subs	Code
1			package # hide from PAUSE
2			DBIx::Class::Relationship::ProxyMethods;
3
4	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	18µs	# spent 15µs (11+4) within DBIx::Class::Relationship::ProxyMethods::BEGIN@5 which was called: # once (11µs+4µs) by Class::C3::Componentised::ensure_class_loaded at line 5 use warnings; # spent 15µs making 1 call to DBIx::Class::Relationship::ProxyMethods::BEGIN@5 # spent 4µs making 1 call to warnings::import
6	2	67µs	# spent 67µs (12+56) within DBIx::Class::Relationship::ProxyMethods::BEGIN@6 which was called: # once (12µs+56µ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 56µs making 1 call to base::import, recursion: max depth 1, sum of overlapping time 56µs
7	2	54µs	# spent 33µs (12+21) within DBIx::Class::Relationship::ProxyMethods::BEGIN@7 which was called: # once (12µs+21µs) by Class::C3::Componentised::ensure_class_loaded at line 7 use DBIx::Class::_Util 'quote_sub'; # spent 33µs making 1 call to DBIx::Class::Relationship::ProxyMethods::BEGIN@7 # spent 21µs making 1 call to Exporter::import
8	2	160µs	# spent 83µs (6+77) within DBIx::Class::Relationship::ProxyMethods::BEGIN@8 which was called: # once (6µs+77µs) by Class::C3::Componentised::ensure_class_loaded at line 8 use namespace::clean; # spent 83µs making 1 call to DBIx::Class::Relationship::ProxyMethods::BEGIN@8 # spent 77µ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.37ms	$class->next::method($rel, $info); # spent 1.37ms 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	42µs	1; # spent 42µs making 1 call to B::Hooks::EndOfScope::XS::__ANON__