| 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 | DBIx::Class::Relationship::ManyToMany::many_to_many |
| 1 | 1 | 1 | 14µs | 16µs | DBIx::Class::Relationship::ManyToMany::BEGIN@4 |
| 1 | 1 | 1 | 10µs | 37µs | DBIx::Class::Relationship::ManyToMany::BEGIN@8 |
| 1 | 1 | 1 | 8µs | 30µs | DBIx::Class::Relationship::ManyToMany::BEGIN@9 |
| 1 | 1 | 1 | 7µs | 17µs | DBIx::Class::Relationship::ManyToMany::BEGIN@5 |
| 1 | 1 | 1 | 7µs | 67µs | DBIx::Class::Relationship::ManyToMany::BEGIN@7 |
| 1 | 1 | 1 | 7µs | 148µs | DBIx::Class::Relationship::ManyToMany::BEGIN@11 |
| 1 | 1 | 1 | 7µs | 22µs | DBIx::Class::Relationship::ManyToMany::BEGIN@31 |
| 1 | 1 | 1 | 7µs | 20µs | DBIx::Class::Relationship::ManyToMany::BEGIN@30 |
| 0 | 0 | 0 | 0s | 0s | DBIx::Class::Relationship::ManyToMany::__ANON__[:109] |
| 0 | 0 | 0 | 0s | 0s | DBIx::Class::Relationship::ManyToMany::__ANON__[:127] |
| 0 | 0 | 0 | 0s | 0s | DBIx::Class::Relationship::ManyToMany::__ANON__[:146] |
| 0 | 0 | 0 | 0s | 0s | DBIx::Class::Relationship::ManyToMany::__ANON__[:71] |
| 0 | 0 | 0 | 0s | 0s | DBIx::Class::Relationship::ManyToMany::__ANON__[:78] |
| 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 | 4 | 5µs | my ($class, $meth, $rel, $f_rel, $rel_attrs) = @_; | ||
| 20 | |||||
| 21 | 4 | 1µs | $class->throw_exception( | ||
| 22 | "missing relation in many-to-many" | ||||
| 23 | ) unless $rel; | ||||
| 24 | |||||
| 25 | 4 | 700ns | $class->throw_exception( | ||
| 26 | "missing foreign relation in many-to-many" | ||||
| 27 | ) unless $f_rel; | ||||
| 28 | |||||
| 29 | { | ||||
| 30 | 7 | 37µ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 | 4 | 3µs | my $add_meth = "add_to_${meth}"; | ||
| 34 | 4 | 3µs | my $remove_meth = "remove_from_${meth}"; | ||
| 35 | 4 | 2µs | my $set_meth = "set_${meth}"; | ||
| 36 | 4 | 2µs | my $rs_meth = "${meth}_rs"; | ||
| 37 | |||||
| 38 | 4 | 4µs | for ($add_meth, $remove_meth, $set_meth, $rs_meth) { | ||
| 39 | 16 | 314µs | 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 | 4 | 4µs | $rel_attrs->{alias} ||= $f_rel; | ||
| 61 | |||||
| 62 | 4 | 4µs | my $rs_meth_name = join '::', $class, $rs_meth; | ||
| 63 | *$rs_meth_name = subname $rs_meth_name, sub { | ||||
| 64 | 147 | 88µs | my $self = shift; | ||
| 65 | 147 | 194µs | my $attrs = @_ > 1 && ref $_[$#_] eq 'HASH' ? pop(@_) : {}; | ||
| 66 | 147 | 764µs | my @args = ($f_rel, @_ > 0 ? @_ : undef, { %{$rel_attrs||{}}, %$attrs }); | ||
| 67 | my $rs = $self->search_related($rel)->search_related( | ||||
| 68 | 147 | 3.26ms | 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 | 147 | 741µs | return $rs; | ||
| 71 | 4 | 43µs | 4 | 11µs | }; # spent 11µs making 4 calls to Sub::Name::subname, avg 3µs/call |
| 72 | |||||
| 73 | 4 | 3µs | my $meth_name = join '::', $class, $meth; | ||
| 74 | *$meth_name = subname $meth_name, sub { | ||||
| 75 | 147 | 94µs | my $self = shift; | ||
| 76 | 147 | 511µs | 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 | 147 | 532µs | return (wantarray ? $rs->all : $rs); | ||
| 78 | 4 | 41µs | 4 | 10µs | }; # spent 10µs making 4 calls to Sub::Name::subname, avg 3µs/call |
| 79 | |||||
| 80 | 4 | 3µs | 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 | 44µs | 4 | 10µs | }; # spent 10µs making 4 calls to Sub::Name::subname, avg 2µs/call |
| 110 | |||||
| 111 | 4 | 3µs | 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 | 35µs | 4 | 9µs | }; # spent 9µs making 4 calls to Sub::Name::subname, avg 2µs/call |
| 128 | |||||
| 129 | 4 | 3µs | 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 | 43µs | 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] |