← Index
NYTProf Performance Profile   « line view »
For starman worker -M FindBin --max-requests 50 --workers 2 --user=kohadev-koha --group kohadev-koha --pid /var/run/koha/kohadev/plack.pid --daemonize --access-log /var/log/koha/kohadev/plack.log --error-log /var/log/koha/kohadev/plack-error.log -E deployment --socket /var/run/koha/kohadev/plack.sock /etc/koha/sites/kohadev/plack.psgi
  Run on Fri Jan 8 14:31:06 2016
Reported on Fri Jan 8 14:33:27 2016

Filename/usr/share/perl5/DBIx/Class/Schema.pm
StatementsExecuted 680 statements in 1.54ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
3482127.2ms49.9msDBIx::Class::Schema::::_register_sourceDBIx::Class::Schema::_register_source
1118.29ms1.37sDBIx::Class::Schema::::load_namespacesDBIx::Class::Schema::load_namespaces
174114.77ms20.9msDBIx::Class::Schema::::register_extra_sourceDBIx::Class::Schema::register_extra_source
491213.60ms8.64msDBIx::Class::Schema::::sourceDBIx::Class::Schema::source
1112.22ms29.3msDBIx::Class::Schema::::_copy_state_fromDBIx::Class::Schema::_copy_state_from
348212.15ms11.1msDBIx::Class::Schema::::_ns_get_rsrc_instanceDBIx::Class::Schema::_ns_get_rsrc_instance
2111.52ms97.4msDBIx::Class::Schema::::_findallmodDBIx::Class::Schema::_findallmod
174111.31ms36.9msDBIx::Class::Schema::::register_classDBIx::Class::Schema::register_class
17411446µs34.2msDBIx::Class::Schema::::register_sourceDBIx::Class::Schema::register_source
221315µs506µsDBIx::Class::Schema::::CORE:sortDBIx::Class::Schema::CORE:sort (opcode)
221136µs97.5msDBIx::Class::Schema::::_map_namespacesDBIx::Class::Schema::_map_namespaces
1741192µs92µsDBIx::Class::Schema::::CORE:matchDBIx::Class::Schema::CORE:match (opcode)
11158µs65.4msDBIx::Class::Schema::::connectionDBIx::Class::Schema::connection
11126µs38µsDBIx::Class::Schema::::BEGIN@12DBIx::Class::Schema::BEGIN@12
11126µs29.3msDBIx::Class::Schema::::cloneDBIx::Class::Schema::clone
11122µs32µsDBIx::Class::Schema::::BEGIN@3DBIx::Class::Schema::BEGIN@3
11118µs67.8msDBIx::Class::Schema::::BEGIN@6DBIx::Class::Schema::BEGIN@6
11116µs54µsDBIx::Class::Schema::::BEGIN@9DBIx::Class::Schema::BEGIN@9
11116µs265µsDBIx::Class::Schema::::resultsetDBIx::Class::Schema::resultset
11115µs21µsDBIx::Class::Schema::::sourcesDBIx::Class::Schema::sources
11115µs58µsDBIx::Class::Schema::::BEGIN@8DBIx::Class::Schema::BEGIN@8
11114µs26µsDBIx::Class::Schema::::BEGIN@896DBIx::Class::Schema::BEGIN@896
21113µs15µsDBIx::Class::Schema::::_expand_relative_nameDBIx::Class::Schema::_expand_relative_name
11112µs27µsDBIx::Class::Schema::::BEGIN@233DBIx::Class::Schema::BEGIN@233
11112µs19µsDBIx::Class::Schema::::BEGIN@4DBIx::Class::Schema::BEGIN@4
11112µs26µsDBIx::Class::Schema::::BEGIN@235DBIx::Class::Schema::BEGIN@235
11111µs21µsDBIx::Class::Schema::::BEGIN@1272DBIx::Class::Schema::BEGIN@1272
11110µs19µsDBIx::Class::Schema::::BEGIN@373DBIx::Class::Schema::BEGIN@373
11110µs33µsDBIx::Class::Schema::::BEGIN@10DBIx::Class::Schema::BEGIN@10
3219µs9µsDBIx::Class::Schema::::CORE:substDBIx::Class::Schema::CORE:subst (opcode)
1118µs38µsDBIx::Class::Schema::::BEGIN@11DBIx::Class::Schema::BEGIN@11
1118µs17µsDBIx::Class::Schema::::BEGIN@898DBIx::Class::Schema::BEGIN@898
1118µs231µsDBIx::Class::Schema::::BEGIN@13DBIx::Class::Schema::BEGIN@13
1118µs19µsDBIx::Class::Schema::::BEGIN@375DBIx::Class::Schema::BEGIN@375
0000s0sDBIx::Class::Schema::::DESTROYDBIx::Class::Schema::DESTROY
0000s0sDBIx::Class::Schema::::__ANON__[:1366]DBIx::Class::Schema::__ANON__[:1366]
0000s0sDBIx::Class::Schema::::__ANON__[:1476]DBIx::Class::Schema::__ANON__[:1476]
0000s0sDBIx::Class::Schema::::__ANON__[:1480]DBIx::Class::Schema::__ANON__[:1480]
0000s0sDBIx::Class::Schema::::__ANON__[:196]DBIx::Class::Schema::__ANON__[:196]
0000s0sDBIx::Class::Schema::::__ANON__[:200]DBIx::Class::Schema::__ANON__[:200]
0000s0sDBIx::Class::Schema::::__ANON__[:234]DBIx::Class::Schema::__ANON__[:234]
0000s0sDBIx::Class::Schema::::__ANON__[:374]DBIx::Class::Schema::__ANON__[:374]
0000s0sDBIx::Class::Schema::::__ANON__[:808]DBIx::Class::Schema::__ANON__[:808]
0000s0sDBIx::Class::Schema::::__ANON__[:813]DBIx::Class::Schema::__ANON__[:813]
0000s0sDBIx::Class::Schema::::__ANON__[:897]DBIx::Class::Schema::__ANON__[:897]
0000s0sDBIx::Class::Schema::::_normalize_storage_typeDBIx::Class::Schema::_normalize_storage_type
0000s0sDBIx::Class::Schema::::_unregister_sourceDBIx::Class::Schema::_unregister_source
0000s0sDBIx::Class::Schema::::catch {...} DBIx::Class::Schema::catch {...}
0000s0sDBIx::Class::Schema::::classDBIx::Class::Schema::class
0000s0sDBIx::Class::Schema::::compose_connectionDBIx::Class::Schema::compose_connection
0000s0sDBIx::Class::Schema::::compose_namespaceDBIx::Class::Schema::compose_namespace
0000s0sDBIx::Class::Schema::::connectDBIx::Class::Schema::connect
0000s0sDBIx::Class::Schema::::create_ddl_dirDBIx::Class::Schema::create_ddl_dir
0000s0sDBIx::Class::Schema::::dcloneDBIx::Class::Schema::dclone
0000s0sDBIx::Class::Schema::::ddl_filenameDBIx::Class::Schema::ddl_filename
0000s0sDBIx::Class::Schema::::deployDBIx::Class::Schema::deploy
0000s0sDBIx::Class::Schema::::deployment_statementsDBIx::Class::Schema::deployment_statements
0000s0sDBIx::Class::Schema::::freezeDBIx::Class::Schema::freeze
0000s0sDBIx::Class::Schema::::load_classesDBIx::Class::Schema::load_classes
0000s0sDBIx::Class::Schema::::populateDBIx::Class::Schema::populate
0000s0sDBIx::Class::Schema::::schema_versionDBIx::Class::Schema::schema_version
0000s0sDBIx::Class::Schema::::setup_connection_classDBIx::Class::Schema::setup_connection_class
0000s0sDBIx::Class::Schema::::svp_beginDBIx::Class::Schema::svp_begin
0000s0sDBIx::Class::Schema::::svp_releaseDBIx::Class::Schema::svp_release
0000s0sDBIx::Class::Schema::::svp_rollbackDBIx::Class::Schema::svp_rollback
0000s0sDBIx::Class::Schema::::thawDBIx::Class::Schema::thaw
0000s0sDBIx::Class::Schema::::throw_exceptionDBIx::Class::Schema::throw_exception
0000s0sDBIx::Class::Schema::::try {...} DBIx::Class::Schema::try {...}
0000s0sDBIx::Class::Schema::::txn_beginDBIx::Class::Schema::txn_begin
0000s0sDBIx::Class::Schema::::txn_commitDBIx::Class::Schema::txn_commit
0000s0sDBIx::Class::Schema::::txn_doDBIx::Class::Schema::txn_do
0000s0sDBIx::Class::Schema::::txn_rollbackDBIx::Class::Schema::txn_rollback
0000s0sDBIx::Class::Schema::::txn_scope_guardDBIx::Class::Schema::txn_scope_guard
0000s0sDBIx::Class::Schema::::unregister_sourceDBIx::Class::Schema::unregister_source
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package DBIx::Class::Schema;
2
3243µs
# spent 32µs (22+10) within DBIx::Class::Schema::BEGIN@3 which was called: # once (22µs+10µs) by base::import at line 3
use strict;
# spent 32µs making 1 call to DBIx::Class::Schema::BEGIN@3 # spent 10µs making 1 call to strict::import
4226µs
# spent 19µs (12+7) within DBIx::Class::Schema::BEGIN@4 which was called: # once (12µs+7µs) by base::import at line 4
use warnings;
# spent 19µs making 1 call to DBIx::Class::Schema::BEGIN@4 # spent 7µs making 1 call to warnings::import
5
6267.8ms
# spent 67.8ms (18µs+67.8) within DBIx::Class::Schema::BEGIN@6 which was called: # once (18µs+67.8ms) by base::import at line 6
use base 'DBIx::Class';
# spent 67.8ms making 1 call to DBIx::Class::Schema::BEGIN@6 # spent 67.8ms making 1 call to base::import, recursion: max depth 1, sum of overlapping time 67.8ms
7
82102µs
# spent 58µs (15+44) within DBIx::Class::Schema::BEGIN@8 which was called: # once (15µs+44µs) by base::import at line 8
use DBIx::Class::Carp;
# spent 58µs making 1 call to DBIx::Class::Schema::BEGIN@8 # spent 44µs making 1 call to DBIx::Class::Carp::import
9291µs
# spent 54µs (16+37) within DBIx::Class::Schema::BEGIN@9 which was called: # once (16µs+37µs) by base::import at line 9
use Try::Tiny;
# spent 54µs making 1 call to DBIx::Class::Schema::BEGIN@9 # spent 37µs making 1 call to Exporter::import
10256µs
# spent 33µs (10+23) within DBIx::Class::Schema::BEGIN@10 which was called: # once (10µs+23µs) by base::import at line 10
use Scalar::Util qw/weaken blessed/;
# spent 33µs making 1 call to DBIx::Class::Schema::BEGIN@10 # spent 23µs making 1 call to Exporter::import
11268µs
# spent 38µs (8+30) within DBIx::Class::Schema::BEGIN@11 which was called: # once (8µs+30µs) by base::import at line 11
use DBIx::Class::_Util qw(refcount quote_sub);
# spent 38µs making 1 call to DBIx::Class::Schema::BEGIN@11 # spent 30µs making 1 call to Exporter::import
12249µs
# spent 38µs (26+11) within DBIx::Class::Schema::BEGIN@12 which was called: # once (26µs+11µs) by base::import at line 12
use Devel::GlobalDestruction;
# spent 38µs making 1 call to DBIx::Class::Schema::BEGIN@12 # spent 12µs making 1 call to Sub::Exporter::Progressive::__ANON__
132454µs
# spent 231µs (8+223) within DBIx::Class::Schema::BEGIN@13 which was called: # once (8µs+223µs) by base::import at line 13
use namespace::clean;
# spent 231µs making 1 call to DBIx::Class::Schema::BEGIN@13 # spent 223µs making 1 call to namespace::clean::import
14
1517.88ms__PACKAGE__->mk_classdata('class_mappings' => {});
# spent 7.88ms making 1 call to DBIx::Class::mk_classdata
161403µs__PACKAGE__->mk_classdata('source_registrations' => {});
# spent 403µs making 1 call to DBIx::Class::mk_classdata
171300µs__PACKAGE__->mk_classdata('storage_type' => '::DBI');
# spent 300µs making 1 call to DBIx::Class::mk_classdata
181270µs__PACKAGE__->mk_classdata('storage');
# spent 270µs making 1 call to DBIx::Class::mk_classdata
191272µs__PACKAGE__->mk_classdata('exception_action');
# spent 272µs making 1 call to DBIx::Class::mk_classdata
201281µs__PACKAGE__->mk_classdata('stacktrace' => $ENV{DBIC_TRACE} || 0);
# spent 281µs making 1 call to DBIx::Class::mk_classdata
211274µs__PACKAGE__->mk_classdata('default_resultset_attributes' => {});
# spent 274µs making 1 call to DBIx::Class::mk_classdata
22
23=head1 NAME
24
25DBIx::Class::Schema - composable schemas
26
27=head1 SYNOPSIS
28
29 package Library::Schema;
30 use base qw/DBIx::Class::Schema/;
31
32 # load all Result classes in Library/Schema/Result/
33 __PACKAGE__->load_namespaces();
34
35 package Library::Schema::Result::CD;
36 use base qw/DBIx::Class::Core/;
37
38 __PACKAGE__->load_components(qw/InflateColumn::DateTime/); # for example
39 __PACKAGE__->table('cd');
40
41 # Elsewhere in your code:
42 my $schema1 = Library::Schema->connect(
43 $dsn,
44 $user,
45 $password,
46 { AutoCommit => 1 },
47 );
48
49 my $schema2 = Library::Schema->connect($coderef_returning_dbh);
50
51 # fetch objects using Library::Schema::Result::DVD
52 my $resultset = $schema1->resultset('DVD')->search( ... );
53 my @dvd_objects = $schema2->resultset('DVD')->search( ... );
54
55=head1 DESCRIPTION
56
57Creates database classes based on a schema. This is the recommended way to
58use L<DBIx::Class> and allows you to use more than one concurrent connection
59with your classes.
60
61NB: If you're used to L<Class::DBI> it's worth reading the L</SYNOPSIS>
62carefully, as DBIx::Class does things a little differently. Note in
63particular which module inherits off which.
64
65=head1 SETUP METHODS
66
67=head2 load_namespaces
68
69=over 4
70
71=item Arguments: %options?
72
73=back
74
75 package MyApp::Schema;
76 __PACKAGE__->load_namespaces();
77
78 __PACKAGE__->load_namespaces(
79 result_namespace => 'Res',
80 resultset_namespace => 'RSet',
81 default_resultset_class => '+MyApp::Othernamespace::RSet',
82 );
83
84With no arguments, this method uses L<Module::Find> to load all of the
85Result and ResultSet classes under the namespace of the schema from
86which it is called. For example, C<My::Schema> will by default find
87and load Result classes named C<My::Schema::Result::*> and ResultSet
88classes named C<My::Schema::ResultSet::*>.
89
90ResultSet classes are associated with Result class of the same name.
91For example, C<My::Schema::Result::CD> will get the ResultSet class
92C<My::Schema::ResultSet::CD> if it is present.
93
94Both Result and ResultSet namespaces are configurable via the
95C<result_namespace> and C<resultset_namespace> options.
96
97Another option, C<default_resultset_class> specifies a custom default
98ResultSet class for Result classes with no corresponding ResultSet.
99
100All of the namespace and classname options are by default relative to
101the schema classname. To specify a fully-qualified name, prefix it
102with a literal C<+>. For example, C<+Other::NameSpace::Result>.
103
104=head3 Warnings
105
106You will be warned if ResultSet classes are discovered for which there
107are no matching Result classes like this:
108
109 load_namespaces found ResultSet class $classname with no corresponding Result class
110
111If a ResultSource instance is found to already have a ResultSet class set
112using L<resultset_class|DBIx::Class::ResultSource/resultset_class> to some
113other class, you will be warned like this:
114
115 We found ResultSet class '$rs_class' for '$result_class', but it seems
116 that you had already set '$result_class' to use '$rs_set' instead
117
118=head3 Examples
119
120 # load My::Schema::Result::CD, My::Schema::Result::Artist,
121 # My::Schema::ResultSet::CD, etc...
122 My::Schema->load_namespaces;
123
124 # Override everything to use ugly names.
125 # In this example, if there is a My::Schema::Res::Foo, but no matching
126 # My::Schema::RSets::Foo, then Foo will have its
127 # resultset_class set to My::Schema::RSetBase
128 My::Schema->load_namespaces(
129 result_namespace => 'Res',
130 resultset_namespace => 'RSets',
131 default_resultset_class => 'RSetBase',
132 );
133
134 # Put things in other namespaces
135 My::Schema->load_namespaces(
136 result_namespace => '+Some::Place::Results',
137 resultset_namespace => '+Another::Place::RSets',
138 );
139
140To search multiple namespaces for either Result or ResultSet classes,
141use an arrayref of namespaces for that option. In the case that the
142same result (or resultset) class exists in multiple namespaces, later
143entries in the list of namespaces will override earlier ones.
144
145 My::Schema->load_namespaces(
146 # My::Schema::Results_C::Foo takes precedence over My::Schema::Results_B::Foo :
147 result_namespace => [ 'Results_A', 'Results_B', 'Results_C' ],
148 resultset_namespace => [ '+Some::Place::RSets', 'RSets' ],
149 );
150
151=cut
152
153# Pre-pends our classname to the given relative classname or
154# class namespace, unless there is a '+' prefix, which will
155# be stripped.
156
# spent 15µs (13+2) within DBIx::Class::Schema::_expand_relative_name which was called 2 times, avg 7µs/call: # 2 times (13µs+2µs) by DBIx::Class::Schema::load_namespaces at line 225, avg 7µs/call
sub _expand_relative_name {
157 my ($class, $name) = @_;
15822µs $name =~ s/^\+// or $name = "${class}::${name}";
# spent 2µs making 2 calls to DBIx::Class::Schema::CORE:subst, avg 850ns/call
159 return $name;
160}
161
162# Finds all modules in the supplied namespace, or if omitted in the
163# namespace of $class. Untaints all findings as they can be assumed
164# to be safe
165
# spent 97.4ms (1.52+95.9) within DBIx::Class::Schema::_findallmod which was called 2 times, avg 48.7ms/call: # 2 times (1.52ms+95.9ms) by DBIx::Class::Schema::_map_namespaces at line 182, avg 48.7ms/call
sub _findallmod {
166 require Module::Find;
16717492µs return map
# spent 92µs making 174 calls to DBIx::Class::Schema::CORE:match, avg 528ns/call
168292.6ms { $_ =~ /(.+)/ } # untaint result
# spent 92.6ms making 2 calls to Module::Find::findallmod, avg 46.3ms/call
169 Module::Find::findallmod( $_[1] || ref $_[0] || $_[0] )
170 ;
171}
172
173# returns a hash of $shortname => $fullname for every package
174# found in the given namespaces ($shortname is with the $fullname's
175# namespace stripped off)
176
# spent 97.5ms (136µs+97.4) within DBIx::Class::Schema::_map_namespaces which was called 2 times, avg 48.8ms/call: # once (130µs+97.3ms) by DBIx::Class::Schema::load_namespaces at line 228 # once (7µs+138µs) by DBIx::Class::Schema::load_namespaces at line 229
sub _map_namespaces {
177 my ($me, $namespaces) = @_;
178
179 my %res;
180 for my $ns (@$namespaces) {
181 $res{ substr($_, length "${ns}::") } = $_
182297.4ms for $me->_findallmod($ns);
# spent 97.4ms making 2 calls to DBIx::Class::Schema::_findallmod, avg 48.7ms/call
183 }
184
185 \%res;
186}
187
188# returns the result_source_instance for the passed class/object,
189# or dies with an informative message (used by load_namespaces)
190
# spent 11.1ms (2.15+8.99) within DBIx::Class::Schema::_ns_get_rsrc_instance which was called 348 times, avg 32µs/call: # 174 times (1.06ms+5.58ms) by DBIx::Class::Schema::load_namespaces at line 259, avg 38µs/call # 174 times (1.09ms+3.41ms) by DBIx::Class::Schema::load_namespaces at line 279, avg 26µs/call
sub _ns_get_rsrc_instance {
191 my $me = shift;
192 my $rs_class = ref ($_[0]) || $_[0];
193
194 return try {
1953483.81ms $rs_class->result_source_instance
# spent 136µs making 2 calls to Koha::Schema::Result::OldIssue::result_source_instance, avg 68µs/call # spent 35µs making 2 calls to Koha::Schema::Result::Aqinvoice::result_source_instance, avg 18µs/call # spent 34µs making 2 calls to Koha::Schema::Result::MessageTransportType::result_source_instance, avg 17µs/call # spent 30µs making 2 calls to Koha::Schema::Result::Aqbudget::result_source_instance, avg 15µs/call # spent 30µs making 2 calls to Koha::Schema::Result::Virtualshelfshare::result_source_instance, avg 15µs/call # spent 30µs making 2 calls to Koha::Schema::Result::Issue::result_source_instance, avg 15µs/call # spent 29µs making 2 calls to Koha::Schema::Result::Biblioitem::result_source_instance, avg 15µs/call # spent 29µs making 2 calls to Koha::Schema::Result::BorrowerAttributeType::result_source_instance, avg 14µs/call # spent 27µs making 2 calls to Koha::Schema::Result::CategoriesBranch::result_source_instance, avg 14µs/call # spent 27µs making 2 calls to Koha::Schema::Result::Z3950server::result_source_instance, avg 14µs/call # spent 27µs making 2 calls to Koha::Schema::Result::UploadedFile::result_source_instance, avg 13µs/call # spent 26µs making 2 calls to Koha::Schema::Result::Virtualshelve::result_source_instance, avg 13µs/call # spent 26µs making 2 calls to Koha::Schema::Result::Serial::result_source_instance, avg 13µs/call # spent 25µs making 2 calls to Koha::Schema::Result::SpecialHoliday::result_source_instance, avg 13µs/call # spent 24µs making 2 calls to Koha::Schema::Result::CourseItem::result_source_instance, avg 12µs/call # spent 24µs making 2 calls to Koha::Schema::Result::ItemsSearchField::result_source_instance, avg 12µs/call # spent 24µs making 2 calls to Koha::Schema::Result::MatchpointComponent::result_source_instance, avg 12µs/call # spent 23µs making 2 calls to Koha::Schema::Result::City::result_source_instance, avg 12µs/call # spent 23µs making 2 calls to Koha::Schema::Result::MarcModificationTemplateAction::result_source_instance, avg 12µs/call # spent 23µs making 2 calls to Koha::Schema::Result::AudioAlert::result_source_instance, avg 11µs/call # spent 23µs making 2 calls to Koha::Schema::Result::Deletedbiblioitem::result_source_instance, avg 11µs/call # spent 23µs making 2 calls to Koha::Schema::Result::BorrowerMessagePreference::result_source_instance, avg 11µs/call # spent 23µs making 2 calls to Koha::Schema::Result::LanguageScriptMapping::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::BorrowerModification::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::Systempreference::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::Branch::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::BorrowerMessageTransportPreference::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::ImportRecord::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::Branchcategory::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::MarcSubfieldStructure::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::Zebraqueue::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::BorrowerAttributeTypesBranch::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::CreatorBatch::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::BranchBorrowerCircRule::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::MessageQueue::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::SubscriptionNumberpattern::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::Aqbasketuser::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::Subscriptionroutinglist::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::AuthHeader::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::ClassSource::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::ItemCirculationAlertPreference::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::AqordersTransfer::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::PatronListPatron::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::Review::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::Statistic::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::AdditionalField::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::Biblio::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::ColumnsSetting::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::Item::result_source_instance, avg 11µs/call # spent 22µs making 2 calls to Koha::Schema::Result::Matchpoint::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::BorrowerFile::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::CreatorLayout::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Letter::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::PendingOfflineOperation::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::PrintersProfile::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::DefaultBranchItemRule::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::OaiSetsDescription::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Aqorder::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Branchtransfer::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::CourseReserve::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Reserve::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::ServicesThrottle::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::AdditionalFieldValue::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Aqbasketgroup::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::BorrowerSync::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::BranchTransferLimit::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Discharge::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::LanguageScriptBidi::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::OpacNews::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Serialitem::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::SocialData::result_source_instance, avg 11µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Alert::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Aqbudgetborrower::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::AqbudgetsPlanning::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Browser::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::DefaultBorrowerCircRule::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::AqordersItem::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::BiblioFramework::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::BorrowerAttribute::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::DefaultBranchCircRule::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::ImportBiblio::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::ImportItem::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Session::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Subscriptionhistory::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Virtualshelfcontent::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Biblioimage::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Collection::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::ExportFormat::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Itemtype::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::LanguageDescription::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::AuthorisedValue::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::ClassSortRule::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::CourseInstructor::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Deleteditem::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::ItemsLastBorrower::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::LanguageRfc4646ToIso639::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::MarcModificationTemplate::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::MatchpointComponentNorm::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::RepeatableHoliday::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::SearchHistory::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::TagsApproval::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::Aqbasket::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::AuthSubfieldStructure::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::TagAll::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::TmpHoldsqueue::result_source_instance, avg 10µs/call # spent 21µs making 2 calls to Koha::Schema::Result::TransportCost::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Accountoffset::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Aqcontract::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Fieldmapping::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::LanguageSubtagRegistry::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Linktracker::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::MarcMatcher::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::MessageAttribute::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::MiscFile::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::NeedMergeAuthority::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::UserPermission::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::AqorderUser::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::OaiSetsMapping::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Overduerule::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Accountline::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Course::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::ImportAuth::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Localization::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::MessageTransport::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Notify::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::AuthTagStructure::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Issuingrule::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Permission::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::PluginData::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Aqcontact::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Borrower::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::BranchItemRule::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::CollectionsTracking::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::OaiSetsBiblio::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::OverduerulesTransportType::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Userflag::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::BorrowerDebarment::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::CreatorImage::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Message::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::PatronList::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::ReportsDictionary::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Suggestion::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Category::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Deletedbiblio::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::ImportRecordMatch::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::MarcTagStructure::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::SavedSql::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::ActionLog::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Aqbudgetperiod::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::AuthorisedValuesBranch::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::DefaultCircRule::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::ImportBatch::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Quote::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Subscription::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::TagsIndex::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Currency::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::HoldFillTarget::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::MatcherMatchpoint::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::SubscriptionFrequency::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Aqbookseller::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::OldReserve::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::Printer::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::SavedReport::result_source_instance, avg 10µs/call # spent 20µs making 2 calls to Koha::Schema::Result::ActionLogs::result_source_instance, avg 10µs/call # spent 19µs making 2 calls to Koha::Schema::Result::Branchrelation::result_source_instance, avg 10µs/call # spent 19µs making 2 calls to Koha::Schema::Result::OaiSet::result_source_instance, avg 10µs/call # spent 19µs making 2 calls to Koha::Schema::Result::Rating::result_source_instance, avg 10µs/call # spent 19µs making 2 calls to Koha::Schema::Result::Matchcheck::result_source_instance, avg 10µs/call # spent 19µs making 2 calls to Koha::Schema::Result::Stopword::result_source_instance, avg 10µs/call # spent 19µs making 2 calls to Koha::Schema::Result::Tag::result_source_instance, avg 10µs/call # spent 19µs making 2 calls to Koha::Schema::Result::Patronimage::result_source_instance, avg 9µs/call # spent 16µs making 2 calls to Koha::Schema::Result::CreatorTemplate::result_source_instance, avg 8µs/call # spent 14µs making 2 calls to Koha::Schema::Result::AuthType::result_source_instance, avg 7µs/call # spent 300ns making 2 calls to Koha::Schema::Result::Deletedborrower::result_source_instance, avg 150ns/call
196 } catch {
197 $me->throw_exception (
198 "Attempt to load_namespaces() class $rs_class failed - are you sure this is a real Result Class?: $_"
199 );
2006968.99ms };
# spent 8.42ms making 348 calls to Try::Tiny::try, avg 24µs/call # spent 567µs making 348 calls to Try::Tiny::catch, avg 2µs/call
201}
202
203
# spent 1.37s (8.29ms+1.36) within DBIx::Class::Schema::load_namespaces which was called: # once (8.29ms+1.36s) by C4::Context::preference at line 12 of Koha/Schema.pm
sub load_namespaces {
204 my ($class, %args) = @_;
205
206 my $result_namespace = delete $args{result_namespace} || 'Result';
207 my $resultset_namespace = delete $args{resultset_namespace} || 'ResultSet';
208
209 my $default_resultset_class = delete $args{default_resultset_class};
210
211 $default_resultset_class = $class->_expand_relative_name($default_resultset_class)
212 if $default_resultset_class;
213
214 $class->throw_exception('load_namespaces: unknown option(s): '
215 . join(q{,}, map { qq{'$_'} } keys %args))
216 if scalar keys %args;
217
218 for my $arg ($result_namespace, $resultset_namespace) {
219 $arg = [ $arg ] if ( $arg and ! ref $arg );
220
221 $class->throw_exception('load_namespaces: namespace arguments must be '
222 . 'a simple string or an arrayref')
223 if ref($arg) ne 'ARRAY';
224
225215µs $_ = $class->_expand_relative_name($_) for (@$arg);
# spent 15µs making 2 calls to DBIx::Class::Schema::_expand_relative_name, avg 7µs/call
226 }
227
228197.4ms my $results_by_source_name = $class->_map_namespaces($result_namespace);
# spent 97.4ms making 1 call to DBIx::Class::Schema::_map_namespaces
2291145µs my $resultsets_by_source_name = $class->_map_namespaces($resultset_namespace);
# spent 145µs making 1 call to DBIx::Class::Schema::_map_namespaces
230
231 my @to_register;
232 {
233242µs
# spent 27µs (12+15) within DBIx::Class::Schema::BEGIN@233 which was called: # once (12µs+15µs) by base::import at line 233
no warnings qw/redefine/;
# spent 27µs making 1 call to DBIx::Class::Schema::BEGIN@233 # spent 15µs making 1 call to warnings::unimport
234 local *Class::C3::reinitialize = sub { } if DBIx::Class::_ENV_::OLD_MRO;
235240µs
# spent 26µs (12+14) within DBIx::Class::Schema::BEGIN@235 which was called: # once (12µs+14µs) by base::import at line 235
use warnings qw/redefine/;
# spent 26µs making 1 call to DBIx::Class::Schema::BEGIN@235 # spent 14µs making 1 call to warnings::import
236
237 # ensure classes are loaded and attached in inheritance order
238 for my $result_class (values %$results_by_source_name) {
2391741.22s $class->ensure_class_loaded($result_class);
# spent 1.22s making 174 calls to Class::C3::Componentised::ensure_class_loaded, avg 6.99ms/call
240 }
241 my %inh_idx;
242 my @source_names_by_subclass_last = sort {
243
244175696µs ($inh_idx{$a} ||=
# spent 504µs making 1 call to DBIx::Class::Schema::CORE:sort # spent 192µs making 174 calls to mro::get_linear_isa, avg 1µs/call
245 scalar @{mro::get_linear_isa( $results_by_source_name->{$a} )}
246 )
247
248 <=>
249
250 ($inh_idx{$b} ||=
251 scalar @{mro::get_linear_isa( $results_by_source_name->{$b} )}
252 )
253
254 } keys(%$results_by_source_name);
255
256 foreach my $source_name (@source_names_by_subclass_last) {
257 my $result_class = $results_by_source_name->{$source_name};
258
2593488.78ms my $preset_resultset_class = $class->_ns_get_rsrc_instance ($result_class)->resultset_class;
# spent 6.64ms making 174 calls to DBIx::Class::Schema::_ns_get_rsrc_instance, avg 38µs/call # spent 2.14ms making 174 calls to DBIx::Class::ResultSource::resultset_class, avg 12µs/call
260 my $found_resultset_class = delete $resultsets_by_source_name->{$source_name};
261
262 if($preset_resultset_class && $preset_resultset_class ne 'DBIx::Class::ResultSet') {
263 if($found_resultset_class && $found_resultset_class ne $preset_resultset_class) {
264 carp "We found ResultSet class '$found_resultset_class' matching '$results_by_source_name->{$source_name}', but it seems "
265 . "that you had already set the '$results_by_source_name->{$source_name}' resultet to '$preset_resultset_class' instead";
266 }
267 }
268 # elsif - there may be *no* default_resultset_class, in which case we fallback to
269 # DBIx::Class::Resultset and there is nothing to check
270 elsif($found_resultset_class ||= $default_resultset_class) {
271 $class->ensure_class_loaded($found_resultset_class);
272 if(!$found_resultset_class->isa("DBIx::Class::ResultSet")) {
273 carp "load_namespaces found ResultSet class '$found_resultset_class' that does not subclass DBIx::Class::ResultSet";
274 }
275
276 $class->_ns_get_rsrc_instance ($result_class)->resultset_class($found_resultset_class);
277 }
278
2791764.66ms my $source_name = $class->_ns_get_rsrc_instance ($result_class)->source_name || $source_name;
# spent 4.50ms making 174 calls to DBIx::Class::Schema::_ns_get_rsrc_instance, avg 26µs/call # spent 152µs making 1 call to DBIx::Class::ResultSource::source_name # spent 600ns making 1 call to DBIx::Class::ResultSource::Table::source_name
280
281 push(@to_register, [ $source_name, $result_class ]);
282 }
283 }
284
28512µs foreach (sort keys %$resultsets_by_source_name) {
# spent 2µs making 1 call to DBIx::Class::Schema::CORE:sort
286 carp "load_namespaces found ResultSet class '$resultsets_by_source_name->{$_}' "
287 .'with no corresponding Result class';
288 }
289
290 Class::C3->reinitialize if DBIx::Class::_ENV_::OLD_MRO;
291
29217436.9ms $class->register_class(@$_) for (@to_register);
# spent 36.9ms making 174 calls to DBIx::Class::Schema::register_class, avg 212µs/call
293
294 return;
295}
296
297=head2 load_classes
298
299=over 4
300
301=item Arguments: @classes?, { $namespace => [ @classes ] }+
302
303=back
304
305L</load_classes> is an alternative method to L</load_namespaces>, both of
306which serve similar purposes, each with different advantages and disadvantages.
307In the general case you should use L</load_namespaces>, unless you need to
308be able to specify that only specific classes are loaded at runtime.
309
310With no arguments, this method uses L<Module::Find> to find all classes under
311the schema's namespace. Otherwise, this method loads the classes you specify
312(using L<use>), and registers them (using L</"register_class">).
313
314It is possible to comment out classes with a leading C<#>, but note that perl
315will think it's a mistake (trying to use a comment in a qw list), so you'll
316need to add C<no warnings 'qw';> before your load_classes call.
317
318If any classes found do not appear to be Result class files, you will
319get the following warning:
320
321 Failed to load $comp_class. Can't find source_name method. Is
322 $comp_class really a full DBIC result class? Fix it, move it elsewhere,
323 or make your load_classes call more specific.
324
325Example:
326
327 My::Schema->load_classes(); # loads My::Schema::CD, My::Schema::Artist,
328 # etc. (anything under the My::Schema namespace)
329
330 # loads My::Schema::CD, My::Schema::Artist, Other::Namespace::Producer but
331 # not Other::Namespace::LinerNotes nor My::Schema::Track
332 My::Schema->load_classes(qw/ CD Artist #Track /, {
333 Other::Namespace => [qw/ Producer #LinerNotes /],
334 });
335
336=cut
337
338sub load_classes {
339 my ($class, @params) = @_;
340
341 my %comps_for;
342
343 if (@params) {
344 foreach my $param (@params) {
345 if (ref $param eq 'ARRAY') {
346 # filter out commented entries
347 my @modules = grep { $_ !~ /^#/ } @$param;
348
349 push (@{$comps_for{$class}}, @modules);
350 }
351 elsif (ref $param eq 'HASH') {
352 # more than one namespace possible
353 for my $comp ( keys %$param ) {
354 # filter out commented entries
355 my @modules = grep { $_ !~ /^#/ } @{$param->{$comp}};
356
357 push (@{$comps_for{$comp}}, @modules);
358 }
359 }
360 else {
361 # filter out commented entries
362 push (@{$comps_for{$class}}, $param) if $param !~ /^#/;
363 }
364 }
365 } else {
366 my @comp = map { substr $_, length "${class}::" }
367 $class->_findallmod($class);
368 $comps_for{$class} = \@comp;
369 }
370
371 my @to_register;
372 {
373228µs
# spent 19µs (10+9) within DBIx::Class::Schema::BEGIN@373 which was called: # once (10µs+9µs) by base::import at line 373
no warnings qw/redefine/;
# spent 19µs making 1 call to DBIx::Class::Schema::BEGIN@373 # spent 9µs making 1 call to warnings::unimport
374 local *Class::C3::reinitialize = sub { } if DBIx::Class::_ENV_::OLD_MRO;
375230µs
# spent 19µs (8+11) within DBIx::Class::Schema::BEGIN@375 which was called: # once (8µs+11µs) by base::import at line 375
use warnings qw/redefine/;
# spent 19µs making 1 call to DBIx::Class::Schema::BEGIN@375 # spent 11µs making 1 call to warnings::import
376
377 foreach my $prefix (keys %comps_for) {
378 foreach my $comp (@{$comps_for{$prefix}||[]}) {
379 my $comp_class = "${prefix}::${comp}";
380 $class->ensure_class_loaded($comp_class);
381
382 my $snsub = $comp_class->can('source_name');
383 if(! $snsub ) {
384 carp "Failed to load $comp_class. Can't find source_name method. Is $comp_class really a full DBIC result class? Fix it, move it elsewhere, or make your load_classes call more specific.";
385 next;
386 }
387 $comp = $snsub->($comp_class) || $comp;
388
389 push(@to_register, [ $comp, $comp_class ]);
390 }
391 }
392 }
393 Class::C3->reinitialize if DBIx::Class::_ENV_::OLD_MRO;
394
395 foreach my $to (@to_register) {
396 $class->register_class(@$to);
397 }
398}
399
400=head2 storage_type
401
402=over 4
403
404=item Arguments: $storage_type|{$storage_type, \%args}
405
406=item Return Value: $storage_type|{$storage_type, \%args}
407
408=item Default value: DBIx::Class::Storage::DBI
409
410=back
411
412Set the storage class that will be instantiated when L</connect> is called.
413If the classname starts with C<::>, the prefix C<DBIx::Class::Storage> is
414assumed by L</connect>.
415
416You want to use this to set subclasses of L<DBIx::Class::Storage::DBI>
417in cases where the appropriate subclass is not autodetected.
418
419If your storage type requires instantiation arguments, those are
420defined as a second argument in the form of a hashref and the entire
421value needs to be wrapped into an arrayref or a hashref. We support
422both types of refs here in order to play nice with your
423Config::[class] or your choice. See
424L<DBIx::Class::Storage::DBI::Replicated> for an example of this.
425
426=head2 exception_action
427
428=over 4
429
430=item Arguments: $code_reference
431
432=item Return Value: $code_reference
433
434=item Default value: None
435
436=back
437
438When L</throw_exception> is invoked and L</exception_action> is set to a code
439reference, this reference will be called instead of
440L<DBIx::Class::Exception/throw>, with the exception message passed as the only
441argument.
442
443Your custom throw code B<must> rethrow the exception, as L</throw_exception> is
444an integral part of DBIC's internal execution control flow.
445
446Example:
447
448 package My::Schema;
449 use base qw/DBIx::Class::Schema/;
450 use My::ExceptionClass;
451 __PACKAGE__->exception_action(sub { My::ExceptionClass->throw(@_) });
452 __PACKAGE__->load_classes;
453
454 # or:
455 my $schema_obj = My::Schema->connect( .... );
456 $schema_obj->exception_action(sub { My::ExceptionClass->throw(@_) });
457
458=head2 stacktrace
459
460=over 4
461
462=item Arguments: boolean
463
464=back
465
466Whether L</throw_exception> should include stack trace information.
467Defaults to false normally, but defaults to true if C<$ENV{DBIC_TRACE}>
468is true.
469
470=head2 sqlt_deploy_hook
471
472=over
473
474=item Arguments: $sqlt_schema
475
476=back
477
478An optional sub which you can declare in your own Schema class that will get
479passed the L<SQL::Translator::Schema> object when you deploy the schema via
480L</create_ddl_dir> or L</deploy>.
481
482For an example of what you can do with this, see
483L<DBIx::Class::Manual::Cookbook/Adding Indexes And Functions To Your SQL>.
484
485Note that sqlt_deploy_hook is called by L</deployment_statements>, which in turn
486is called before L</deploy>. Therefore the hook can be used only to manipulate
487the L<SQL::Translator::Schema> object before it is turned into SQL fed to the
488database. If you want to execute post-deploy statements which can not be generated
489by L<SQL::Translator>, the currently suggested method is to overload L</deploy>
490and use L<dbh_do|DBIx::Class::Storage::DBI/dbh_do>.
491
492=head1 METHODS
493
494=head2 connect
495
496=over 4
497
498=item Arguments: @connectinfo
499
500=item Return Value: $new_schema
501
502=back
503
504Creates and returns a new Schema object. The connection info set on it
505is used to create a new instance of the storage backend and set it on
506the Schema object.
507
508See L<DBIx::Class::Storage::DBI/"connect_info"> for DBI-specific
509syntax on the C<@connectinfo> argument, or L<DBIx::Class::Storage> in
510general.
511
512Note that C<connect_info> expects an arrayref of arguments, but
513C<connect> does not. C<connect> wraps its arguments in an arrayref
514before passing them to C<connect_info>.
515
516=head3 Overloading
517
518C<connect> is a convenience method. It is equivalent to calling
519$schema->clone->connection(@connectinfo). To write your own overloaded
520version, overload L</connection> instead.
521
522=cut
523
524294.7mssub connect { shift->clone->connection(@_) }
# spent 65.4ms making 1 call to DBIx::Class::Schema::connection # spent 29.3ms making 1 call to DBIx::Class::Schema::clone
525
526=head2 resultset
527
528=over 4
529
530=item Arguments: L<$source_name|DBIx::Class::ResultSource/source_name>
531
532=item Return Value: L<$resultset|DBIx::Class::ResultSet>
533
534=back
535
536 my $rs = $schema->resultset('DVD');
537
538Returns the L<DBIx::Class::ResultSet> object for the registered source
539name.
540
541=cut
542
543
# spent 265µs (16+249) within DBIx::Class::Schema::resultset which was called: # once (16µs+249µs) by CGI::Compile::ROOT::home_vagrant_kohaclone_mainpage_2epl::BEGIN@32 at line 15 of Koha/Borrower/Discharge.pm
sub resultset {
5448546µs my ($self, $source_name) = @_;
5458531µs $self->throw_exception('resultset() expects a source name')
546 unless defined $source_name;
54785549µs63485.5ms return $self->source($source_name)->resultset;
# spent 78.5ms making 317 calls to DBIx::Class::ResultSource::resultset, avg 248µs/call # spent 7.01ms making 317 calls to DBIx::Class::Schema::source, avg 22µs/call
548}
549
550=head2 sources
551
552=over 4
553
554=item Return Value: L<@source_names|DBIx::Class::ResultSource/source_name>
555
556=back
557
558 my @source_names = $schema->sources;
559
560Lists names of all the sources registered on this Schema object.
561
562=cut
563
56415µs
# spent 21µs (15+5) within DBIx::Class::Schema::sources which was called: # once (15µs+5µs) by DBIx::Class::Schema::_copy_state_from at line 1028
sub sources { keys %{shift->source_registrations} }
# spent 5µs making 1 call to DBIx::Class::Schema::source_registrations
565
566=head2 source
567
568=over 4
569
570=item Arguments: L<$source_name|DBIx::Class::ResultSource/source_name>
571
572=item Return Value: L<$result_source|DBIx::Class::ResultSource>
573
574=back
575
576 my $source = $schema->source('Book');
577
578Returns the L<DBIx::Class::ResultSource> object for the registered
579source name.
580
581=cut
582
583
# spent 8.64ms (3.60+5.04) within DBIx::Class::Schema::source which was called 491 times, avg 18µs/call: # 317 times (2.96ms+4.04ms) by C4::Context::preference or C4::Languages::getTranslatedLanguages or C4::Languages::getlanguage or C4::NewsChannels::GetNewsToDisplay or DBIx::Class::Schema::resultset or Koha::Objects::search at line 547, avg 22µs/call # 174 times (640µs+997µs) by DBIx::Class::Schema::_copy_state_from at line 1029, avg 9µs/call
sub source {
5848546µs my $self = shift;
585
5868531µs $self->throw_exception("source() expects a source name")
587 unless @_;
588
5898585µs my $source_name = shift;
590
59185314µs4915.04ms my $sreg = $self->source_registrations;
# spent 5.04ms making 491 calls to DBIx::Class::Schema::source_registrations, avg 10µs/call
59285442µs return $sreg->{$source_name} if exists $sreg->{$source_name};
593
594 # if we got here, they probably passed a full class name
595 my $mapped = $self->class_mappings->{$source_name};
596 $self->throw_exception("Can't find source for ${source_name}")
597 unless $mapped && exists $sreg->{$mapped};
598 return $sreg->{$mapped};
599}
600
601=head2 class
602
603=over 4
604
605=item Arguments: L<$source_name|DBIx::Class::ResultSource/source_name>
606
607=item Return Value: $classname
608
609=back
610
611 my $class = $schema->class('CD');
612
613Retrieves the Result class name for the given source name.
614
615=cut
616
617sub class {
618 return shift->source(shift)->result_class;
619}
620
621=head2 txn_do
622
623=over 4
624
625=item Arguments: C<$coderef>, @coderef_args?
626
627=item Return Value: The return value of $coderef
628
629=back
630
631Executes C<$coderef> with (optional) arguments C<@coderef_args> atomically,
632returning its result (if any). Equivalent to calling $schema->storage->txn_do.
633See L<DBIx::Class::Storage/"txn_do"> for more information.
634
635This interface is preferred over using the individual methods L</txn_begin>,
636L</txn_commit>, and L</txn_rollback> below.
637
638WARNING: If you are connected with C<< AutoCommit => 0 >> the transaction is
639considered nested, and you will still need to call L</txn_commit> to write your
640changes when appropriate. You will also want to connect with C<< auto_savepoint =>
6411 >> to get partial rollback to work, if the storage driver for your database
642supports it.
643
644Connecting with C<< AutoCommit => 1 >> is recommended.
645
646=cut
647
648sub txn_do {
649 my $self = shift;
650
651 $self->storage or $self->throw_exception
652 ('txn_do called on $schema without storage');
653
654 $self->storage->txn_do(@_);
655}
656
657=head2 txn_scope_guard
658
659Runs C<txn_scope_guard> on the schema's storage. See
660L<DBIx::Class::Storage/txn_scope_guard>.
661
662=cut
663
664sub txn_scope_guard {
665 my $self = shift;
666
667 $self->storage or $self->throw_exception
668 ('txn_scope_guard called on $schema without storage');
669
670 $self->storage->txn_scope_guard(@_);
671}
672
673=head2 txn_begin
674
675Begins a transaction (does nothing if AutoCommit is off). Equivalent to
676calling $schema->storage->txn_begin. See
677L<DBIx::Class::Storage/"txn_begin"> for more information.
678
679=cut
680
681sub txn_begin {
682 my $self = shift;
683
684 $self->storage or $self->throw_exception
685 ('txn_begin called on $schema without storage');
686
687 $self->storage->txn_begin;
688}
689
690=head2 txn_commit
691
692Commits the current transaction. Equivalent to calling
693$schema->storage->txn_commit. See L<DBIx::Class::Storage/"txn_commit">
694for more information.
695
696=cut
697
698sub txn_commit {
699 my $self = shift;
700
701 $self->storage or $self->throw_exception
702 ('txn_commit called on $schema without storage');
703
704 $self->storage->txn_commit;
705}
706
707=head2 txn_rollback
708
709Rolls back the current transaction. Equivalent to calling
710$schema->storage->txn_rollback. See
711L<DBIx::Class::Storage/"txn_rollback"> for more information.
712
713=cut
714
715sub txn_rollback {
716 my $self = shift;
717
718 $self->storage or $self->throw_exception
719 ('txn_rollback called on $schema without storage');
720
721 $self->storage->txn_rollback;
722}
723
724=head2 storage
725
726 my $storage = $schema->storage;
727
728Returns the L<DBIx::Class::Storage> object for this Schema. Grab this
729if you want to turn on SQL statement debugging at runtime, or set the
730quote character. For the default storage, the documentation can be
731found in L<DBIx::Class::Storage::DBI>.
732
733=head2 populate
734
735=over 4
736
737=item Arguments: L<$source_name|DBIx::Class::ResultSource/source_name>, [ \@column_list, \@row_values+ ] | [ \%col_data+ ]
738
739=item Return Value: L<\@result_objects|DBIx::Class::Manual::ResultClass> (scalar context) | L<@result_objects|DBIx::Class::Manual::ResultClass> (list context)
740
741=back
742
743A convenience shortcut to L<DBIx::Class::ResultSet/populate>. Equivalent to:
744
745 $schema->resultset($source_name)->populate([...]);
746
747=over 4
748
749=item NOTE
750
751The context of this method call has an important effect on what is
752submitted to storage. In void context data is fed directly to fastpath
753insertion routines provided by the underlying storage (most often
754L<DBI/execute_for_fetch>), bypassing the L<new|DBIx::Class::Row/new> and
755L<insert|DBIx::Class::Row/insert> calls on the
756L<Result|DBIx::Class::Manual::ResultClass> class, including any
757augmentation of these methods provided by components. For example if you
758are using something like L<DBIx::Class::UUIDColumns> to create primary
759keys for you, you will find that your PKs are empty. In this case you
760will have to explicitly force scalar or list context in order to create
761those values.
762
763=back
764
765=cut
766
767sub populate {
768 my ($self, $name, $data) = @_;
769 my $rs = $self->resultset($name)
770 or $self->throw_exception("'$name' is not a resultset");
771
772 return $rs->populate($data);
773}
774
775=head2 connection
776
777=over 4
778
779=item Arguments: @args
780
781=item Return Value: $new_schema
782
783=back
784
785Similar to L</connect> except sets the storage object and connection
786data in-place on the Schema class. You should probably be calling
787L</connect> to get a proper Schema object instead.
788
789=head3 Overloading
790
791Overload C<connection> to change the behaviour of C<connect>.
792
793=cut
794
795
# spent 65.4ms (58µs+65.3) within DBIx::Class::Schema::connection which was called: # once (58µs+65.3ms) by C4::Context::preference at line 524
sub connection {
796 my ($self, @info) = @_;
797 return $self if !@info && $self->storage;
798
799242µs my ($storage_class, $args) = ref $self->storage_type
# spent 42µs making 2 calls to DBIx::Class::Schema::storage_type, avg 21µs/call
800 ? $self->_normalize_storage_type($self->storage_type)
801 : $self->storage_type
802 ;
803
80418µs $storage_class =~ s/^::/DBIx::Class::Storage::/;
# spent 8µs making 1 call to DBIx::Class::Schema::CORE:subst
805
806 try {
807164.1ms $self->ensure_class_loaded ($storage_class);
# spent 64.1ms making 1 call to Class::C3::Componentised::ensure_class_loaded
808 }
809 catch {
810 $self->throw_exception(
811 "Unable to load storage class ${storage_class}: $_"
812 );
813264.2ms };
# spent 64.1ms making 1 call to Try::Tiny::try # spent 9µs making 1 call to Try::Tiny::catch
814
8151481µs my $storage = $storage_class->new( $self => $args||{} );
# spent 481µs making 1 call to DBIx::Class::Storage::DBI::new
8161612µs $storage->connect_info(\@info);
# spent 612µs making 1 call to DBIx::Class::Storage::DBI::connect_info
817120µs $self->storage($storage);
# spent 20µs making 1 call to DBIx::Class::Schema::storage
818 return $self;
819}
820
821sub _normalize_storage_type {
822 my ($self, $storage_type) = @_;
823 if(ref $storage_type eq 'ARRAY') {
824 return @$storage_type;
825 } elsif(ref $storage_type eq 'HASH') {
826 return %$storage_type;
827 } else {
828 $self->throw_exception('Unsupported REFTYPE given: '. ref $storage_type);
829 }
830}
831
832=head2 compose_namespace
833
834=over 4
835
836=item Arguments: $target_namespace, $additional_base_class?
837
838=item Return Value: $new_schema
839
840=back
841
842For each L<DBIx::Class::ResultSource> in the schema, this method creates a
843class in the target namespace (e.g. $target_namespace::CD,
844$target_namespace::Artist) that inherits from the corresponding classes
845attached to the current schema.
846
847It also attaches a corresponding L<DBIx::Class::ResultSource> object to the
848new $schema object. If C<$additional_base_class> is given, the new composed
849classes will inherit from first the corresponding class from the current
850schema then the base class.
851
852For example, for a schema with My::Schema::CD and My::Schema::Artist classes,
853
854 $schema->compose_namespace('My::DB', 'Base::Class');
855 print join (', ', @My::DB::CD::ISA) . "\n";
856 print join (', ', @My::DB::Artist::ISA) ."\n";
857
858will produce the output
859
860 My::Schema::CD, Base::Class
861 My::Schema::Artist, Base::Class
862
863=cut
864
865# this might be oversimplified
866# sub compose_namespace {
867# my ($self, $target, $base) = @_;
868
869# my $schema = $self->clone;
870# foreach my $source_name ($schema->sources) {
871# my $source = $schema->source($source_name);
872# my $target_class = "${target}::${source_name}";
873# $self->inject_base(
874# $target_class => $source->result_class, ($base ? $base : ())
875# );
876# $source->result_class($target_class);
877# $target_class->result_source_instance($source)
878# if $target_class->can('result_source_instance');
879# $schema->register_source($source_name, $source);
880# }
881# return $schema;
882# }
883
884sub compose_namespace {
885 my ($self, $target, $base) = @_;
886
887 my $schema = $self->clone;
888
889 $schema->source_registrations({});
890
891 # the original class-mappings must remain - otherwise
892 # reverse_relationship_info will not work
893 #$schema->class_mappings({});
894
895 {
896238µs
# spent 26µs (14+12) within DBIx::Class::Schema::BEGIN@896 which was called: # once (14µs+12µs) by base::import at line 896
no warnings qw/redefine/;
# spent 26µs making 1 call to DBIx::Class::Schema::BEGIN@896 # spent 12µs making 1 call to warnings::unimport
897 local *Class::C3::reinitialize = sub { } if DBIx::Class::_ENV_::OLD_MRO;
898227µs
# spent 17µs (8+9) within DBIx::Class::Schema::BEGIN@898 which was called: # once (8µs+9µs) by base::import at line 898
use warnings qw/redefine/;
# spent 17µs making 1 call to DBIx::Class::Schema::BEGIN@898 # spent 9µs making 1 call to warnings::import
899
900 foreach my $source_name ($self->sources) {
901 my $orig_source = $self->source($source_name);
902
903 my $target_class = "${target}::${source_name}";
904 $self->inject_base($target_class, $orig_source->result_class, ($base || ()) );
905
906 # register_source examines result_class, and then returns us a clone
907 my $new_source = $schema->register_source($source_name, bless
908 { %$orig_source, result_class => $target_class },
909 ref $orig_source,
910 );
911
912 if ($target_class->can('result_source_instance')) {
913 # give the class a schema-less source copy
914 $target_class->result_source_instance( bless
915 { %$new_source, schema => ref $new_source->{schema} || $new_source->{schema} },
916 ref $new_source,
917 );
918 }
919 }
920
921 quote_sub "${target}::${_}" => "shift->schema->$_(\@_)"
922 for qw(class source resultset);
923 }
924
925 Class::C3->reinitialize() if DBIx::Class::_ENV_::OLD_MRO;
926
927 return $schema;
928}
929
930sub setup_connection_class {
931 my ($class, $target, @info) = @_;
932 $class->inject_base($target => 'DBIx::Class::DB');
933 #$target->load_components('DB');
934 $target->connection(@info);
935}
936
937=head2 svp_begin
938
939Creates a new savepoint (does nothing outside a transaction).
940Equivalent to calling $schema->storage->svp_begin. See
941L<DBIx::Class::Storage/"svp_begin"> for more information.
942
943=cut
944
945sub svp_begin {
946 my ($self, $name) = @_;
947
948 $self->storage or $self->throw_exception
949 ('svp_begin called on $schema without storage');
950
951 $self->storage->svp_begin($name);
952}
953
954=head2 svp_release
955
956Releases a savepoint (does nothing outside a transaction).
957Equivalent to calling $schema->storage->svp_release. See
958L<DBIx::Class::Storage/"svp_release"> for more information.
959
960=cut
961
962sub svp_release {
963 my ($self, $name) = @_;
964
965 $self->storage or $self->throw_exception
966 ('svp_release called on $schema without storage');
967
968 $self->storage->svp_release($name);
969}
970
971=head2 svp_rollback
972
973Rollback to a savepoint (does nothing outside a transaction).
974Equivalent to calling $schema->storage->svp_rollback. See
975L<DBIx::Class::Storage/"svp_rollback"> for more information.
976
977=cut
978
979sub svp_rollback {
980 my ($self, $name) = @_;
981
982 $self->storage or $self->throw_exception
983 ('svp_rollback called on $schema without storage');
984
985 $self->storage->svp_rollback($name);
986}
987
988=head2 clone
989
990=over 4
991
992=item Arguments: %attrs?
993
994=item Return Value: $new_schema
995
996=back
997
998Clones the schema and its associated result_source objects and returns the
999copy. The resulting copy will have the same attributes as the source schema,
1000except for those attributes explicitly overridden by the provided C<%attrs>.
1001
1002=cut
1003
1004
# spent 29.3ms (26µs+29.3) within DBIx::Class::Schema::clone which was called: # once (26µs+29.3ms) by C4::Context::preference at line 524
sub clone {
1005 my $self = shift;
1006
1007 my $clone = {
1008 (ref $self ? %$self : ()),
1009 (@_ == 1 && ref $_[0] eq 'HASH' ? %{ $_[0] } : @_),
1010 };
1011 bless $clone, (ref $self || $self);
1012
1013352µs $clone->$_(undef) for qw/class_mappings source_registrations storage/;
# spent 36µs making 1 call to DBIx::Class::Schema::class_mappings # spent 9µs making 1 call to DBIx::Class::Schema::storage # spent 8µs making 1 call to DBIx::Class::Schema::source_registrations
1014
1015129.3ms $clone->_copy_state_from($self);
# spent 29.3ms making 1 call to DBIx::Class::Schema::_copy_state_from
1016
1017 return $clone;
1018}
1019
1020# Needed in Schema::Loader - if you refactor, please make a compatibility shim
1021# -- Caelum
1022
# spent 29.3ms (2.22+27.0) within DBIx::Class::Schema::_copy_state_from which was called: # once (2.22ms+27.0ms) by DBIx::Class::Schema::clone at line 1015
sub _copy_state_from {
1023 my ($self, $from) = @_;
1024
1025218µs $self->class_mappings({ %{$from->class_mappings} });
# spent 18µs making 2 calls to DBIx::Class::Schema::class_mappings, avg 9µs/call
1026215µs $self->source_registrations({ %{$from->source_registrations} });
# spent 15µs making 2 calls to DBIx::Class::Schema::source_registrations, avg 7µs/call
1027
1028121µs foreach my $source_name ($from->sources) {
# spent 21µs making 1 call to DBIx::Class::Schema::sources
10291741.64ms my $source = $from->source($source_name);
# spent 1.64ms making 174 calls to DBIx::Class::Schema::source, avg 9µs/call
10301743.54ms my $new = $source->new($source);
# spent 3.54ms making 174 calls to DBIx::Class::ResultSource::new, avg 20µs/call
1031 # we use extra here as we want to leave the class_mappings as they are
1032 # but overwrite the source_registrations entry with the new source
103334821.8ms $self->register_extra_source($source_name => $new);
# spent 20.9ms making 174 calls to DBIx::Class::Schema::register_extra_source, avg 120µs/call # spent 838µs making 174 calls to DBIx::Class::ResultSource::DESTROY, avg 5µs/call
1034 }
1035
1036150µs if ($from->storage) {
# spent 50µs making 1 call to DBIx::Class::Schema::storage
1037 $self->storage($from->storage);
1038 $self->storage->set_schema($self);
1039 }
1040}
1041
1042=head2 throw_exception
1043
1044=over 4
1045
1046=item Arguments: $message
1047
1048=back
1049
1050Throws an exception. Obeys the exemption rules of L<DBIx::Class::Carp> to report
1051errors from outer-user's perspective. See L</exception_action> for details on overriding
1052this method's behavior. If L</stacktrace> is turned on, C<throw_exception>'s
1053default behavior will provide a detailed stack trace.
1054
1055=cut
1056
1057sub throw_exception {
1058 my $self = shift;
1059
1060 if (my $act = $self->exception_action) {
1061 if ($act->(@_)) {
1062 DBIx::Class::Exception->throw(
1063 "Invocation of the exception_action handler installed on $self did *not*"
1064 .' result in an exception. DBIx::Class is unable to function without a reliable'
1065 .' exception mechanism, ensure that exception_action does not hide exceptions'
1066 ." (original error: $_[0])"
1067 );
1068 }
1069
1070 carp_unique (
1071 "The exception_action handler installed on $self returned false instead"
1072 .' of throwing an exception. This behavior has been deprecated, adjust your'
1073 .' handler to always rethrow the supplied error.'
1074 );
1075 }
1076
1077 DBIx::Class::Exception->throw($_[0], $self->stacktrace);
1078}
1079
1080=head2 deploy
1081
1082=over 4
1083
1084=item Arguments: \%sqlt_args, $dir
1085
1086=back
1087
1088Attempts to deploy the schema to the current storage using L<SQL::Translator>.
1089
1090See L<SQL::Translator/METHODS> for a list of values for C<\%sqlt_args>.
1091The most common value for this would be C<< { add_drop_table => 1 } >>
1092to have the SQL produced include a C<DROP TABLE> statement for each table
1093created. For quoting purposes supply C<quote_identifiers>.
1094
1095Additionally, the DBIx::Class parser accepts a C<sources> parameter as a hash
1096ref or an array ref, containing a list of source to deploy. If present, then
1097only the sources listed will get deployed. Furthermore, you can use the
1098C<add_fk_index> parser parameter to prevent the parser from creating an index for each
1099FK.
1100
1101=cut
1102
1103sub deploy {
1104 my ($self, $sqltargs, $dir) = @_;
1105 $self->throw_exception("Can't deploy without storage") unless $self->storage;
1106 $self->storage->deploy($self, undef, $sqltargs, $dir);
1107}
1108
1109=head2 deployment_statements
1110
1111=over 4
1112
1113=item Arguments: See L<DBIx::Class::Storage::DBI/deployment_statements>
1114
1115=item Return Value: $listofstatements
1116
1117=back
1118
1119A convenient shortcut to
1120C<< $self->storage->deployment_statements($self, @args) >>.
1121Returns the statements used by L</deploy> and
1122L<DBIx::Class::Storage/deploy>.
1123
1124=cut
1125
1126sub deployment_statements {
1127 my $self = shift;
1128
1129 $self->throw_exception("Can't generate deployment statements without a storage")
1130 if not $self->storage;
1131
1132 $self->storage->deployment_statements($self, @_);
1133}
1134
1135=head2 create_ddl_dir
1136
1137=over 4
1138
1139=item Arguments: See L<DBIx::Class::Storage::DBI/create_ddl_dir>
1140
1141=back
1142
1143A convenient shortcut to
1144C<< $self->storage->create_ddl_dir($self, @args) >>.
1145
1146Creates an SQL file based on the Schema, for each of the specified
1147database types, in the given directory.
1148
1149=cut
1150
1151sub create_ddl_dir {
1152 my $self = shift;
1153
1154 $self->throw_exception("Can't create_ddl_dir without storage") unless $self->storage;
1155 $self->storage->create_ddl_dir($self, @_);
1156}
1157
1158=head2 ddl_filename
1159
1160=over 4
1161
1162=item Arguments: $database-type, $version, $directory, $preversion
1163
1164=item Return Value: $normalised_filename
1165
1166=back
1167
1168 my $filename = $table->ddl_filename($type, $version, $dir, $preversion)
1169
1170This method is called by C<create_ddl_dir> to compose a file name out of
1171the supplied directory, database type and version number. The default file
1172name format is: C<$dir$schema-$version-$type.sql>.
1173
1174You may override this method in your schema if you wish to use a different
1175format.
1176
1177 WARNING
1178
1179 Prior to DBIx::Class version 0.08100 this method had a different signature:
1180
1181 my $filename = $table->ddl_filename($type, $dir, $version, $preversion)
1182
1183 In recent versions variables $dir and $version were reversed in order to
1184 bring the signature in line with other Schema/Storage methods. If you
1185 really need to maintain backward compatibility, you can do the following
1186 in any overriding methods:
1187
1188 ($dir, $version) = ($version, $dir) if ($DBIx::Class::VERSION < 0.08100);
1189
1190=cut
1191
1192sub ddl_filename {
1193 my ($self, $type, $version, $dir, $preversion) = @_;
1194
1195 require File::Spec;
1196
1197 $version = "$preversion-$version" if $preversion;
1198
1199 my $class = blessed($self) || $self;
1200 $class =~ s/::/-/g;
1201
1202 return File::Spec->catfile($dir, "$class-$version-$type.sql");
1203}
1204
1205=head2 thaw
1206
1207Provided as the recommended way of thawing schema objects. You can call
1208C<Storable::thaw> directly if you wish, but the thawed objects will not have a
1209reference to any schema, so are rather useless.
1210
1211=cut
1212
1213sub thaw {
1214 my ($self, $obj) = @_;
1215 local $DBIx::Class::ResultSourceHandle::thaw_schema = $self;
1216 require Storable;
1217 return Storable::thaw($obj);
1218}
1219
1220=head2 freeze
1221
1222This doesn't actually do anything beyond calling L<nfreeze|Storable/SYNOPSIS>,
1223it is just provided here for symmetry.
1224
1225=cut
1226
1227sub freeze {
1228 require Storable;
1229 return Storable::nfreeze($_[1]);
1230}
1231
1232=head2 dclone
1233
1234=over 4
1235
1236=item Arguments: $object
1237
1238=item Return Value: dcloned $object
1239
1240=back
1241
1242Recommended way of dcloning L<DBIx::Class::Row> and L<DBIx::Class::ResultSet>
1243objects so their references to the schema object
1244(which itself is B<not> cloned) are properly maintained.
1245
1246=cut
1247
1248sub dclone {
1249 my ($self, $obj) = @_;
1250 local $DBIx::Class::ResultSourceHandle::thaw_schema = $self;
1251 require Storable;
1252 return Storable::dclone($obj);
1253}
1254
1255=head2 schema_version
1256
1257Returns the current schema class' $VERSION in a normalised way.
1258
1259=cut
1260
1261sub schema_version {
1262 my ($self) = @_;
1263 my $class = ref($self)||$self;
1264
1265 # does -not- use $schema->VERSION
1266 # since that varies in results depending on if version.pm is installed, and if
1267 # so the perl or XS versions. If you want this to change, bug the version.pm
1268 # author to make vpp and vxs behave the same.
1269
1270 my $version;
1271 {
1272231µs
# spent 21µs (11+10) within DBIx::Class::Schema::BEGIN@1272 which was called: # once (11µs+10µs) by base::import at line 1272
no strict 'refs';
# spent 21µs making 1 call to DBIx::Class::Schema::BEGIN@1272 # spent 10µs making 1 call to strict::unimport
1273 $version = ${"${class}::VERSION"};
1274 }
1275 return $version;
1276}
1277
1278
1279=head2 register_class
1280
1281=over 4
1282
1283=item Arguments: $source_name, $component_class
1284
1285=back
1286
1287This method is called by L</load_namespaces> and L</load_classes> to install the found classes into your Schema. You should be using those instead of this one.
1288
1289You will only need this method if you have your Result classes in
1290files which are not named after the packages (or all in the same
1291file). You may also need it to register classes at runtime.
1292
1293Registers a class which isa DBIx::Class::ResultSourceProxy. Equivalent to
1294calling:
1295
1296 $schema->register_source($source_name, $component_class->result_source_instance);
1297
1298=cut
1299
1300
# spent 36.9ms (1.31+35.6) within DBIx::Class::Schema::register_class which was called 174 times, avg 212µs/call: # 174 times (1.31ms+35.6ms) by DBIx::Class::Schema::load_namespaces at line 292, avg 212µs/call
sub register_class {
1301 my ($self, $source_name, $to_register) = @_;
130234835.6ms $self->register_source($source_name => $to_register->result_source_instance);
# spent 34.2ms making 174 calls to DBIx::Class::Schema::register_source, avg 196µs/call # spent 16µs making 1 call to Koha::Schema::Result::Virtualshelfshare::result_source_instance # spent 15µs making 1 call to Koha::Schema::Result::Quote::result_source_instance # spent 15µs making 1 call to Koha::Schema::Result::PrintersProfile::result_source_instance # spent 10µs making 1 call to Koha::Schema::Result::BorrowerModification::result_source_instance # spent 10µs making 1 call to Koha::Schema::Result::BorrowerDebarment::result_source_instance # spent 10µs making 1 call to Koha::Schema::Result::Reserve::result_source_instance # spent 10µs making 1 call to Koha::Schema::Result::Discharge::result_source_instance # spent 10µs making 1 call to Koha::Schema::Result::Z3950server::result_source_instance # spent 10µs making 1 call to Koha::Schema::Result::BorrowerAttributeTypesBranch::result_source_instance # spent 10µs making 1 call to Koha::Schema::Result::CreatorTemplate::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Branchcategory::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Matchpoint::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::OaiSetsDescription::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Aqcontact::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::BorrowerSync::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::ClassSortRule::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Systempreference::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::MarcModificationTemplateAction::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::BorrowerFile::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::ClassSource::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::MarcSubfieldStructure::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::MatchpointComponent::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Virtualshelve::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Aqorder::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::BranchItemRule::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::City::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::BorrowerMessagePreference::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::BranchTransferLimit::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Branchrelation::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::CourseInstructor::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::DefaultBranchItemRule::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Deleteditem::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::MessageQueue::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::MessageTransportType::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::AqordersItem::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Branch::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::CreatorBatch::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::ImportAuth::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::ItemCirculationAlertPreference::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::LanguageDescription::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::PatronListPatron::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Subscriptionroutinglist::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::TransportCost::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Biblioitem::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::CreatorLayout::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Deletedborrower::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Letter::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::MarcModificationTemplate::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::ReportsDictionary::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Aqbasket::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::CollectionsTracking::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Fieldmapping::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Message::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::NeedMergeAuthority::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::RepeatableHoliday::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::SocialData::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Subscriptionhistory::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::UploadedFile::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Virtualshelfcontent::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::CourseReserve::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::OaiSetsBiblio::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::SubscriptionFrequency::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Aqbudgetborrower::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::AuthorisedValue::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Browser::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::ImportRecordMatch::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Linktracker::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::MarcMatcher::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::PatronList::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Printer::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Review::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::ServicesThrottle::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::SubscriptionNumberpattern::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Aqbudget::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::AudioAlert::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::BiblioFramework::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Borrower::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::BorrowerAttributeType::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Collection::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Currency::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::HoldFillTarget::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Item::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::LanguageScriptBidi::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::OaiSetsMapping::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Stopword::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::AdditionalFieldValue::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Aqbasketuser::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::BorrowerMessageTransportPreference::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Branchtransfer::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Deletedbiblio::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Deletedbiblioitem::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::SavedReport::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Session::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::TagsIndex::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::UserPermission::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Zebraqueue::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Aqbasketgroup::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Aqbookseller::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Aqcontract::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::DefaultBranchCircRule::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::ImportBiblio::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::LanguageSubtagRegistry::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::OaiSet::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::PendingOfflineOperation::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Serialitem::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Tag::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::ActionLog::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::AuthSubfieldStructure::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::AuthTagStructure::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::DefaultCircRule::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::ExportFormat::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::ImportRecord::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::ItemsLastBorrower::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::ItemsSearchField::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::MessageTransport::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::OpacNews::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Overduerule::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::SavedSql::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::TagsApproval::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::AuthHeader::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::AuthorisedValuesBranch::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::CategoriesBranch::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::ColumnsSetting::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::CourseItem::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Issuingrule::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::LanguageRfc4646ToIso639::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::MiscFile::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Aqbudgetperiod::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Biblio::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::BorrowerAttribute::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Category::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Issue::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::OldReserve::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Accountline::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Alert::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Aqinvoice::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Course::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Itemtype::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Matchcheck::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::MatcherMatchpoint::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Permission::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Serial::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Subscription::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::TagAll::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Userflag::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::AqbudgetsPlanning::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::AqorderUser::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::PluginData::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::SpecialHoliday::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Suggestion::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::ActionLogs::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::BranchBorrowerCircRule::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::CreatorImage::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::DefaultBorrowerCircRule::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::ImportBatch::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::LanguageScriptMapping::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::AqordersTransfer::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Biblioimage::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::ImportItem::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Localization::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::MessageAttribute::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::OverduerulesTransportType::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Rating::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Patronimage::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::OldIssue::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Statistic::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Accountoffset::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::AuthType::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::MatchpointComponentNorm::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::TmpHoldsqueue::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::MarcTagStructure::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::AdditionalField::result_source_instance # spent 3µs making 1 call to Koha::Schema::Result::SearchHistory::result_source_instance # spent 200ns making 1 call to Koha::Schema::Result::Notify::result_source_instance
1303}
1304
1305=head2 register_source
1306
1307=over 4
1308
1309=item Arguments: $source_name, L<$result_source|DBIx::Class::ResultSource>
1310
1311=back
1312
1313This method is called by L</register_class>.
1314
1315Registers the L<DBIx::Class::ResultSource> in the schema with the given
1316source name.
1317
1318=cut
1319
132017433.7ms
# spent 34.2ms (446µs+33.7) within DBIx::Class::Schema::register_source which was called 174 times, avg 196µs/call: # 174 times (446µs+33.7ms) by DBIx::Class::Schema::register_class at line 1302, avg 196µs/call
sub register_source { shift->_register_source(@_) }
# spent 33.7ms making 174 calls to DBIx::Class::Schema::_register_source, avg 194µs/call
1321
1322=head2 unregister_source
1323
1324=over 4
1325
1326=item Arguments: $source_name
1327
1328=back
1329
1330Removes the L<DBIx::Class::ResultSource> from the schema for the given source name.
1331
1332=cut
1333
1334sub unregister_source { shift->_unregister_source(@_) }
1335
1336=head2 register_extra_source
1337
1338=over 4
1339
1340=item Arguments: $source_name, L<$result_source|DBIx::Class::ResultSource>
1341
1342=back
1343
1344As L</register_source> but should be used if the result class already
1345has a source and you want to register an extra one.
1346
1347=cut
1348
134917416.1ms
# spent 20.9ms (4.77+16.1) within DBIx::Class::Schema::register_extra_source which was called 174 times, avg 120µs/call: # 174 times (4.77ms+16.1ms) by DBIx::Class::Schema::_copy_state_from at line 1033, avg 120µs/call
sub register_extra_source { shift->_register_source(@_, { extra => 1 }) }
# spent 16.1ms making 174 calls to DBIx::Class::Schema::_register_source, avg 93µs/call
1350
1351
# spent 49.9ms (27.2+22.7) within DBIx::Class::Schema::_register_source which was called 348 times, avg 143µs/call: # 174 times (15.6ms+18.1ms) by DBIx::Class::Schema::register_source at line 1320, avg 194µs/call # 174 times (11.6ms+4.59ms) by DBIx::Class::Schema::register_extra_source at line 1349, avg 93µs/call
sub _register_source {
1352 my ($self, $source_name, $source, $params) = @_;
1353
13543484.88ms $source = $source->new({ %$source, source_name => $source_name });
# spent 4.88ms making 348 calls to DBIx::Class::ResultSource::new, avg 14µs/call
1355
1356348466µs $source->schema($self);
# spent 466µs making 348 calls to DBIx::Class::ResultSource::schema, avg 1µs/call
1357174153µs weaken $source->{schema} if ref($self);
# spent 153µs making 174 calls to Scalar::Util::weaken, avg 879ns/call
1358
13593482.02ms my %reg = %{$self->source_registrations};
# spent 2.02ms making 348 calls to DBIx::Class::Schema::source_registrations, avg 6µs/call
1360 $reg{$source_name} = $source;
13613485.59ms $self->source_registrations(\%reg);
# spent 5.59ms making 348 calls to DBIx::Class::Schema::source_registrations, avg 16µs/call
1362
1363 return $source if $params->{extra};
1364
13651744.42ms my $rs_class = $source->result_class;
# spent 4.42ms making 174 calls to DBIx::Class::ResultSource::result_class, avg 25µs/call
13663484.57ms if ($rs_class and my $rsrc = try { $rs_class->result_source_instance } ) {
# spent 3.40ms making 174 calls to Try::Tiny::try, avg 20µs/call # spent 18µs making 1 call to Koha::Schema::Result::MiscFile::result_source_instance # spent 16µs making 1 call to Koha::Schema::Result::LanguageRfc4646ToIso639::result_source_instance # spent 9µs making 1 call to Koha::Schema::Result::Aqbudgetborrower::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Item::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Message::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::BorrowerModification::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Aqbasket::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Aqbookseller::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::BorrowerDebarment::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Branchrelation::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Permission::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::OverduerulesTransportType::result_source_instance # spent 8µs making 1 call to Koha::Schema::Result::Subscriptionhistory::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Z3950server::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::BranchTransferLimit::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::AuthorisedValuesBranch::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::BorrowerMessagePreference::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Discharge::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::MessageTransportType::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::TransportCost::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Currency::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::OaiSetsDescription::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Aqcontact::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::BorrowerFile::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::MatchpointComponent::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::NeedMergeAuthority::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Reserve::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Systempreference::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Virtualshelfshare::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::BorrowerAttributeTypesBranch::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::CollectionsTracking::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::CourseItem::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::MarcModificationTemplateAction::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Matchpoint::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::MessageQueue::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Subscriptionroutinglist::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::TagsApproval::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Biblioitem::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::CreatorTemplate::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::DefaultBranchItemRule::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::HoldFillTarget::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::LanguageDescription::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Linktracker::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Overduerule::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::PrintersProfile::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Review::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::SearchHistory::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::ServicesThrottle::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::UserPermission::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Virtualshelfcontent::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Virtualshelve::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::ActionLog::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::AdditionalFieldValue::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Aqbasketgroup::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::AuthorisedValue::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::BiblioFramework::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::BorrowerAttribute::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::BorrowerMessageTransportPreference::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Branchtransfer::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Collection::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::CourseInstructor::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::CreatorBatch::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Deletedborrower::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Fieldmapping::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::ImportAuth::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Issue::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::ItemsLastBorrower::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::LanguageScriptBidi::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::LanguageSubtagRegistry::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::MarcMatcher::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::MarcSubfieldStructure::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::PatronListPatron::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::RepeatableHoliday::result_source_instance # spent 7µs making 1 call to Koha::Schema::Result::Serialitem::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Aqbudgetperiod::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::AqorderUser::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::AqordersItem::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::BorrowerAttributeType::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Branchcategory::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::ClassSortRule::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::ColumnsSetting::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Course::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::CreatorLayout::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::ImportRecord::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::ItemCirculationAlertPreference::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::LanguageScriptMapping::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Matchcheck::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::MatcherMatchpoint::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::OldReserve::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Printer::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::SavedSql::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::SubscriptionNumberpattern::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Tag::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Userflag::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Aqorder::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Borrower::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::BorrowerSync::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Browser::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Category::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::ClassSource::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::CourseReserve::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::DefaultBorrowerCircRule::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::DefaultCircRule::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Deletedbiblio::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Deletedbiblioitem::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::ImportItem::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Issuingrule::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::ItemsSearchField::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Letter::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Localization::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::MessageTransport::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::OaiSetsBiblio::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Patronimage::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Quote::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Rating::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::ReportsDictionary::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Serial::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::SocialData::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::SubscriptionFrequency::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Suggestion::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::UploadedFile::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Accountline::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::AqbudgetsPlanning::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Aqcontract::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::AqordersTransfer::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::AuthTagStructure::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::BranchItemRule::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::CategoriesBranch::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::CreatorImage::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::DefaultBranchCircRule::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Deleteditem::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::ImportBatch::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::ImportRecordMatch::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::MessageAttribute::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::OaiSetsMapping::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::PatronList::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::SavedReport::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::SpecialHoliday::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Subscription::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::TagsIndex::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Zebraqueue::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::ActionLogs::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Aqbasketuser::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::AuthSubfieldStructure::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Biblioimage::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::City::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Itemtype::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::MatchpointComponentNorm::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::OaiSet::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::PendingOfflineOperation::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Statistic::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Stopword::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::TagAll::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Accountoffset::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::AdditionalField::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Aqbudget::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::AudioAlert::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Biblio::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Branch::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::ImportBiblio::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::MarcModificationTemplate::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::MarcTagStructure::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::OldIssue::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::OpacNews::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Session::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::TmpHoldsqueue::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Alert::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::Aqinvoice::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::AuthHeader::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::BranchBorrowerCircRule::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::PluginData::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::AuthType::result_source_instance # spent 6µs making 1 call to Koha::Schema::Result::ExportFormat::result_source_instance # spent 5µs making 1 call to Koha::Schema::Result::Notify::result_source_instance
1367174856µs my %map = %{$self->class_mappings};
# spent 856µs making 174 calls to DBIx::Class::Schema::class_mappings, avg 5µs/call
1368 if (
1369 exists $map{$rs_class}
1370 and
1371 $map{$rs_class} ne $source_name
1372 and
1373 $rsrc ne $_[2] # orig_source
1374 ) {
1375 carp
1376 "$rs_class already had a registered source which was replaced by this call. "
1377 . 'Perhaps you wanted register_extra_source(), though it is more likely you did '
1378 . 'something wrong.'
1379 ;
1380 }
1381
1382 $map{$rs_class} = $source_name;
1383174910µs $self->class_mappings(\%map);
# spent 910µs making 174 calls to DBIx::Class::Schema::class_mappings, avg 5µs/call
1384 }
1385
1386 return $source;
1387}
1388
1389my $global_phase_destroy;
1390sub DESTROY {
1391 return if $global_phase_destroy ||= in_global_destruction;
1392
1393 my $self = shift;
1394 my $srcs = $self->source_registrations;
1395
1396 for my $source_name (keys %$srcs) {
1397 # find first source that is not about to be GCed (someone other than $self
1398 # holds a reference to it) and reattach to it, weakening our own link
1399 #
1400 # during global destruction (if we have not yet bailed out) this should throw
1401 # which will serve as a signal to not try doing anything else
1402 # however beware - on older perls the exception seems randomly untrappable
1403 # due to some weird race condition during thread joining :(((
1404 if (length ref $srcs->{$source_name} and refcount($srcs->{$source_name}) > 1) {
1405 local $@;
1406 eval {
1407 $srcs->{$source_name}->schema($self);
1408 weaken $srcs->{$source_name};
1409 1;
1410 } or do {
1411 $global_phase_destroy = 1;
1412 };
1413
1414 last;
1415 }
1416 }
1417}
1418
1419sub _unregister_source {
1420 my ($self, $source_name) = @_;
1421 my %reg = %{$self->source_registrations};
1422
1423 my $source = delete $reg{$source_name};
1424 $self->source_registrations(\%reg);
1425 if ($source->result_class) {
1426 my %map = %{$self->class_mappings};
1427 delete $map{$source->result_class};
1428 $self->class_mappings(\%map);
1429 }
1430}
1431
1432
1433=head2 compose_connection (DEPRECATED)
1434
1435=over 4
1436
1437=item Arguments: $target_namespace, @db_info
1438
1439=item Return Value: $new_schema
1440
1441=back
1442
1443DEPRECATED. You probably wanted compose_namespace.
1444
1445Actually, you probably just wanted to call connect.
1446
1447=begin hidden
1448
1449(hidden due to deprecation)
1450
1451Calls L<DBIx::Class::Schema/"compose_namespace"> to the target namespace,
1452calls L<DBIx::Class::Schema/connection> with @db_info on the new schema,
1453then injects the L<DBix::Class::ResultSetProxy> component and a
1454resultset_instance classdata entry on all the new classes, in order to support
1455$target_namespaces::$class->search(...) method calls.
1456
1457This is primarily useful when you have a specific need for class method access
1458to a connection. In normal usage it is preferred to call
1459L<DBIx::Class::Schema/connect> and use the resulting schema object to operate
1460on L<DBIx::Class::ResultSet> objects with L<DBIx::Class::Schema/resultset> for
1461more information.
1462
1463=end hidden
1464
1465=cut
1466
1467sub compose_connection {
1468 my ($self, $target, @info) = @_;
1469
1470 carp_once "compose_connection deprecated as of 0.08000"
1471 unless $INC{"DBIx/Class/CDBICompat.pm"};
1472
1473 my $base = 'DBIx::Class::ResultSetProxy';
1474 try {
1475 eval "require ${base};"
1476 }
1477 catch {
1478 $self->throw_exception
1479 ("No arguments to load_classes and couldn't load ${base} ($_)")
1480 };
1481
1482 if ($self eq $target) {
1483 # Pathological case, largely caused by the docs on early C::M::DBIC::Plain
1484 foreach my $source_name ($self->sources) {
1485 my $source = $self->source($source_name);
1486 my $class = $source->result_class;
1487 $self->inject_base($class, $base);
1488 $class->mk_classdata(resultset_instance => $source->resultset);
1489 $class->mk_classdata(class_resolver => $self);
1490 }
1491 $self->connection(@info);
1492 return $self;
1493 }
1494
1495 my $schema = $self->compose_namespace($target, $base);
1496 quote_sub "${target}::schema", '$s', { '$s' => \$schema };
1497
1498 $schema->connection(@info);
1499 foreach my $source_name ($schema->sources) {
1500 my $source = $schema->source($source_name);
1501 my $class = $source->result_class;
1502 #warn "$source_name $class $source ".$source->storage;
1503 $class->mk_classdata(result_source_instance => $source);
1504 $class->mk_classdata(resultset_instance => $source->resultset);
1505 $class->mk_classdata(class_resolver => $schema);
1506 }
1507 return $schema;
1508}
1509
1510=head1 FURTHER QUESTIONS?
1511
1512Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>.
1513
1514=head1 COPYRIGHT AND LICENSE
1515
1516This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE>
1517by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can
1518redistribute it and/or modify it under the same terms as the
1519L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>.
1520
1521=cut
1522
15231276µs1;
# spent 276µs making 1 call to B::Hooks::EndOfScope::XS::__ANON__
 
# spent 92µs within DBIx::Class::Schema::CORE:match which was called 174 times, avg 528ns/call: # 174 times (92µs+0s) by DBIx::Class::Schema::_findallmod at line 167, avg 528ns/call
sub DBIx::Class::Schema::CORE:match; # opcode
# spent 506µs (315+192) within DBIx::Class::Schema::CORE:sort which was called 2 times, avg 253µs/call: # once (313µs+192µs) by DBIx::Class::Schema::load_namespaces at line 244 # once (2µs+0s) by DBIx::Class::Schema::load_namespaces at line 285
sub DBIx::Class::Schema::CORE:sort; # opcode
# spent 9µs within DBIx::Class::Schema::CORE:subst which was called 3 times, avg 3µs/call: # 2 times (2µs+0s) by DBIx::Class::Schema::_expand_relative_name at line 158, avg 850ns/call # once (8µs+0s) by DBIx::Class::Schema::connection at line 804
sub DBIx::Class::Schema::CORE:subst; # opcode
Report produced by the NYTProf 6.02 Perl profiler, developed by Tim Bunce and Adam Kaplan.