Filename | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/DBIx/Class/Relationship/ManyToMany.pm |
Statements | Executed 1298 statements in 7.64ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
4 | 4 | 2 | 245µs | 571µs | many_to_many | DBIx::Class::Relationship::ManyToMany::
1 | 1 | 1 | 14µs | 16µs | BEGIN@4 | DBIx::Class::Relationship::ManyToMany::
1 | 1 | 1 | 10µs | 37µs | BEGIN@8 | DBIx::Class::Relationship::ManyToMany::
1 | 1 | 1 | 8µs | 30µs | BEGIN@9 | DBIx::Class::Relationship::ManyToMany::
1 | 1 | 1 | 7µs | 17µs | BEGIN@5 | DBIx::Class::Relationship::ManyToMany::
1 | 1 | 1 | 7µs | 67µs | BEGIN@7 | DBIx::Class::Relationship::ManyToMany::
1 | 1 | 1 | 7µs | 148µs | BEGIN@11 | DBIx::Class::Relationship::ManyToMany::
1 | 1 | 1 | 7µs | 22µs | BEGIN@31 | DBIx::Class::Relationship::ManyToMany::
1 | 1 | 1 | 7µs | 20µs | BEGIN@30 | DBIx::Class::Relationship::ManyToMany::
0 | 0 | 0 | 0s | 0s | __ANON__[:109] | DBIx::Class::Relationship::ManyToMany::
0 | 0 | 0 | 0s | 0s | __ANON__[:127] | DBIx::Class::Relationship::ManyToMany::
0 | 0 | 0 | 0s | 0s | __ANON__[:146] | DBIx::Class::Relationship::ManyToMany::
0 | 0 | 0 | 0s | 0s | __ANON__[:71] | DBIx::Class::Relationship::ManyToMany::
0 | 0 | 0 | 0s | 0s | __ANON__[:78] | DBIx::Class::Relationship::ManyToMany::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package # hide from PAUSE | ||||
2 | DBIx::Class::Relationship::ManyToMany; | ||||
3 | |||||
4 | 3 | 19µs | 2 | 18µs | # spent 16µs (14+2) within DBIx::Class::Relationship::ManyToMany::BEGIN@4 which was called:
# once (14µs+2µs) by Class::C3::Componentised::ensure_class_loaded at line 4 # spent 16µs making 1 call to DBIx::Class::Relationship::ManyToMany::BEGIN@4
# spent 2µs making 1 call to strict::import |
5 | 3 | 19µs | 2 | 27µs | # spent 17µs (7+10) within DBIx::Class::Relationship::ManyToMany::BEGIN@5 which was called:
# once (7µs+10µs) by Class::C3::Componentised::ensure_class_loaded at line 5 # spent 17µs making 1 call to DBIx::Class::Relationship::ManyToMany::BEGIN@5
# spent 10µs making 1 call to warnings::import |
6 | |||||
7 | 3 | 23µs | 2 | 127µs | # spent 67µs (7+60) within DBIx::Class::Relationship::ManyToMany::BEGIN@7 which was called:
# once (7µs+60µs) by Class::C3::Componentised::ensure_class_loaded at line 7 # spent 67µs making 1 call to DBIx::Class::Relationship::ManyToMany::BEGIN@7
# spent 60µs making 1 call to DBIx::Class::Carp::import |
8 | 3 | 22µs | 2 | 65µs | # spent 37µs (10+28) within DBIx::Class::Relationship::ManyToMany::BEGIN@8 which was called:
# once (10µs+28µs) by Class::C3::Componentised::ensure_class_loaded at line 8 # spent 37µs making 1 call to DBIx::Class::Relationship::ManyToMany::BEGIN@8
# spent 28µs making 1 call to Exporter::import |
9 | 3 | 24µs | 2 | 52µs | # spent 30µs (8+22) within DBIx::Class::Relationship::ManyToMany::BEGIN@9 which was called:
# once (8µs+22µs) by Class::C3::Componentised::ensure_class_loaded at line 9 # spent 30µs making 1 call to DBIx::Class::Relationship::ManyToMany::BEGIN@9
# spent 22µs making 1 call to Exporter::import |
10 | |||||
11 | 3 | 65µs | 2 | 289µs | # spent 148µs (7+141) within DBIx::Class::Relationship::ManyToMany::BEGIN@11 which was called:
# once (7µs+141µs) by Class::C3::Componentised::ensure_class_loaded at line 11 # spent 148µs making 1 call to DBIx::Class::Relationship::ManyToMany::BEGIN@11
# spent 141µs making 1 call to namespace::clean::import |
12 | |||||
13 | 1 | 2µs | our %_pod_inherit_config = | ||
14 | ( | ||||
15 | class_map => { 'DBIx::Class::Relationship::ManyToMany' => 'DBIx::Class::Relationship' } | ||||
16 | ); | ||||
17 | |||||
18 | # spent 571µs (245+326) within DBIx::Class::Relationship::ManyToMany::many_to_many which was called 4 times, avg 143µs/call:
# once (83µs+82µs) by Class::C3::Componentised::ensure_class_loaded at line 28 of Tapper/Schema/TestrunDB/Result/Precondition.pm
# once (62µs+84µs) by Class::C3::Componentised::ensure_class_loaded at line 44 of Tapper/Schema/TestrunDB/Result/Testrun.pm
# once (52µs+82µs) by Class::C3::Componentised::ensure_class_loaded at line 31 of Tapper/Schema/TestrunDB/Result/Precondition.pm
# once (48µs+79µs) by Class::C3::Componentised::ensure_class_loaded at line 34 of Tapper/Schema/TestrunDB/Result/Precondition.pm | ||||
19 | 96 | 582µs | my ($class, $meth, $rel, $f_rel, $rel_attrs) = @_; | ||
20 | |||||
21 | $class->throw_exception( | ||||
22 | "missing relation in many-to-many" | ||||
23 | ) unless $rel; | ||||
24 | |||||
25 | $class->throw_exception( | ||||
26 | "missing foreign relation in many-to-many" | ||||
27 | ) unless $f_rel; | ||||
28 | |||||
29 | { | ||||
30 | 3 | 18µs | 2 | 34µs | # spent 20µs (7+13) within DBIx::Class::Relationship::ManyToMany::BEGIN@30 which was called:
# once (7µs+13µs) by Class::C3::Componentised::ensure_class_loaded at line 30 # spent 20µs making 1 call to DBIx::Class::Relationship::ManyToMany::BEGIN@30
# spent 13µs making 1 call to strict::unimport |
31 | 3 | 665µs | 2 | 36µs | # spent 22µs (7+15) within DBIx::Class::Relationship::ManyToMany::BEGIN@31 which was called:
# once (7µs+15µs) by Class::C3::Componentised::ensure_class_loaded at line 31 # spent 22µs making 1 call to DBIx::Class::Relationship::ManyToMany::BEGIN@31
# spent 15µs making 1 call to warnings::unimport |
32 | |||||
33 | my $add_meth = "add_to_${meth}"; | ||||
34 | my $remove_meth = "remove_from_${meth}"; | ||||
35 | my $set_meth = "set_${meth}"; | ||||
36 | my $rs_meth = "${meth}_rs"; | ||||
37 | |||||
38 | for ($add_meth, $remove_meth, $set_meth, $rs_meth) { | ||||
39 | 16 | 277µs | if ( $class->can ($_) ) { # spent 277µs making 16 calls to UNIVERSAL::can, avg 17µs/call | ||
40 | carp (<<"EOW") unless $ENV{DBIC_OVERWRITE_HELPER_METHODS_OK}; | ||||
41 | |||||
42 | *************************************************************************** | ||||
43 | The many-to-many relationship '$meth' is trying to create a utility method | ||||
44 | called $_. | ||||
45 | This will completely overwrite one such already existing method on class | ||||
46 | $class. | ||||
47 | |||||
48 | You almost certainly want to rename your method or the many-to-many | ||||
49 | relationship, as the functionality of the original method will not be | ||||
50 | accessible anymore. | ||||
51 | |||||
52 | To disable this warning set to a true value the environment variable | ||||
53 | DBIC_OVERWRITE_HELPER_METHODS_OK | ||||
54 | |||||
55 | *************************************************************************** | ||||
56 | EOW | ||||
57 | } | ||||
58 | } | ||||
59 | |||||
60 | $rel_attrs->{alias} ||= $f_rel; | ||||
61 | |||||
62 | my $rs_meth_name = join '::', $class, $rs_meth; | ||||
63 | *$rs_meth_name = subname $rs_meth_name, sub { | ||||
64 | 735 | 5.05ms | my $self = shift; | ||
65 | my $attrs = @_ > 1 && ref $_[$#_] eq 'HASH' ? pop(@_) : {}; | ||||
66 | my @args = ($f_rel, @_ > 0 ? @_ : undef, { %{$rel_attrs||{}}, %$attrs }); | ||||
67 | my $rs = $self->search_related($rel)->search_related( | ||||
68 | 294 | 266ms | $f_rel, @_ > 0 ? @_ : undef, { %{$rel_attrs||{}}, %$attrs } # spent 146ms making 147 calls to DBIx::Class::ResultSet::search_related, avg 992µs/call
# spent 120ms making 147 calls to DBIx::Class::Relationship::Base::search_related, avg 818µs/call | ||
69 | ); | ||||
70 | return $rs; | ||||
71 | 4 | 11µs | }; # spent 11µs making 4 calls to Sub::Name::subname, avg 3µs/call | ||
72 | |||||
73 | my $meth_name = join '::', $class, $meth; | ||||
74 | *$meth_name = subname $meth_name, sub { | ||||
75 | 441 | 1.14ms | my $self = shift; | ||
76 | 147 | 271ms | my $rs = $self->$rs_meth( @_ ); # spent 271ms making 147 calls to Tapper::Schema::TestrunDB::Result::Testrun::preconditions_rs, avg 1.84ms/call | ||
77 | return (wantarray ? $rs->all : $rs); | ||||
78 | 4 | 10µs | }; # spent 10µs making 4 calls to Sub::Name::subname, avg 3µs/call | ||
79 | |||||
80 | my $add_meth_name = join '::', $class, $add_meth; | ||||
81 | *$add_meth_name = subname $add_meth_name, sub { | ||||
82 | my $self = shift; | ||||
83 | @_ > 0 or $self->throw_exception( | ||||
84 | "${add_meth} needs an object or hashref" | ||||
85 | ); | ||||
86 | my $source = $self->result_source; | ||||
87 | my $schema = $source->schema; | ||||
88 | my $rel_source_name = $source->relationship_info($rel)->{source}; | ||||
89 | my $rel_source = $schema->resultset($rel_source_name)->result_source; | ||||
90 | my $f_rel_source_name = $rel_source->relationship_info($f_rel)->{source}; | ||||
91 | my $f_rel_rs = $schema->resultset($f_rel_source_name)->search({}, $rel_attrs||{}); | ||||
92 | |||||
93 | my $obj; | ||||
94 | if (ref $_[0]) { | ||||
95 | if (ref $_[0] eq 'HASH') { | ||||
96 | $obj = $f_rel_rs->find_or_create($_[0]); | ||||
97 | } else { | ||||
98 | $obj = $_[0]; | ||||
99 | } | ||||
100 | } else { | ||||
101 | $obj = $f_rel_rs->find_or_create({@_}); | ||||
102 | } | ||||
103 | |||||
104 | my $link_vals = @_ > 1 && ref $_[$#_] eq 'HASH' ? pop(@_) : {}; | ||||
105 | my $link = $self->search_related($rel)->new_result($link_vals); | ||||
106 | $link->set_from_related($f_rel, $obj); | ||||
107 | $link->insert(); | ||||
108 | return $obj; | ||||
109 | 4 | 10µs | }; # spent 10µs making 4 calls to Sub::Name::subname, avg 2µs/call | ||
110 | |||||
111 | my $set_meth_name = join '::', $class, $set_meth; | ||||
112 | *$set_meth_name = subname $set_meth_name, sub { | ||||
113 | my $self = shift; | ||||
114 | @_ > 0 or $self->throw_exception( | ||||
115 | "{$set_meth} needs a list of objects or hashrefs" | ||||
116 | ); | ||||
117 | my @to_set = (ref($_[0]) eq 'ARRAY' ? @{ $_[0] } : @_); | ||||
118 | # if there is a where clause in the attributes, ensure we only delete | ||||
119 | # rows that are within the where restriction | ||||
120 | if ($rel_attrs && $rel_attrs->{where}) { | ||||
121 | $self->search_related( $rel, $rel_attrs->{where},{join => $f_rel})->delete; | ||||
122 | } else { | ||||
123 | $self->search_related( $rel, {} )->delete; | ||||
124 | } | ||||
125 | # add in the set rel objects | ||||
126 | $self->$add_meth($_, ref($_[1]) ? $_[1] : {}) for (@to_set); | ||||
127 | 4 | 9µs | }; # spent 9µs making 4 calls to Sub::Name::subname, avg 2µs/call | ||
128 | |||||
129 | my $remove_meth_name = join '::', $class, $remove_meth; | ||||
130 | *$remove_meth_name = subname $remove_meth_name, sub { | ||||
131 | my ($self, $obj) = @_; | ||||
132 | $self->throw_exception("${remove_meth} needs an object") | ||||
133 | unless blessed ($obj); | ||||
134 | my $rel_source = $self->search_related($rel)->result_source; | ||||
135 | my $cond = $rel_source->relationship_info($f_rel)->{cond}; | ||||
136 | my ($link_cond, $crosstable) = $rel_source->_resolve_condition( | ||||
137 | $cond, $obj, $f_rel, $f_rel | ||||
138 | ); | ||||
139 | |||||
140 | $self->throw_exception( | ||||
141 | "Custom relationship '$rel' does not resolve to a join-free condition, " | ||||
142 | ."unable to use with the ManyToMany helper '$f_rel'" | ||||
143 | ) if $crosstable; | ||||
144 | |||||
145 | $self->search_related($rel, $link_cond)->delete; | ||||
146 | 4 | 9µs | }; # spent 9µs making 4 calls to Sub::Name::subname, avg 2µs/call | ||
147 | |||||
148 | } | ||||
149 | } | ||||
150 | |||||
151 | 1 | 14µs | 1 | 353µs | 1; # spent 353µs making 1 call to B::Hooks::EndOfScope::__ANON__[B/Hooks/EndOfScope.pm:26] |