Profile of DBIx/Class/Storage/DBI/mysql.pm

Filename	/usr/share/perl5/DBIx/Class/Storage/DBI/mysql.pm
Statements	Executed 52 statements in 1.52ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
6	2	1	125µs	11.9ms	DBIx::Class::Storage::DBI::mysql::sql_maker
1	1	1	58µs	3.01ms	DBIx::Class::Storage::DBI::mysql::_run_connection_actions
3	1	1	34µs	4.59ms	DBIx::Class::Storage::DBI::mysql::_prep_for_execute
1	1	1	17µs	28µs	DBIx::Class::Storage::DBI::mysql::BEGIN@3
1	1	1	14µs	24µs	DBIx::Class::Storage::DBI::mysql::BEGIN@4
1	1	1	12µs	77µs	DBIx::Class::Storage::DBI::mysql::BEGIN@6
1	1	1	10µs	101µs	DBIx::Class::Storage::DBI::mysql::BEGIN@8
3	3	2	2µs	2µs	DBIx::Class::Storage::DBI::mysql::debug (xsub)
3	3	3	2µs	2µs	DBIx::Class::Storage::DBI::mysql::transaction_depth (xsub)
2	2	2	1µs	1µs	DBIx::Class::Storage::DBI::mysql::disable_sth_caching (xsub)
1	1	1	500ns	500ns	DBIx::Class::Storage::DBI::mysql::on_connect_call (xsub)
0	0	0	0s	0s	DBIx::Class::Storage::DBI::mysql::_dbh_last_insert_id
0	0	0	0s	0s	DBIx::Class::Storage::DBI::mysql::_exec_svp_begin
0	0	0	0s	0s	DBIx::Class::Storage::DBI::mysql::_exec_svp_release
0	0	0	0s	0s	DBIx::Class::Storage::DBI::mysql::_exec_svp_rollback
0	0	0	0s	0s	DBIx::Class::Storage::DBI::mysql::connect_call_set_strict_mode
0	0	0	0s	0s	DBIx::Class::Storage::DBI::mysql::deployment_statements
0	0	0	0s	0s	DBIx::Class::Storage::DBI::mysql::is_replicating
0	0	0	0s	0s	DBIx::Class::Storage::DBI::mysql::lag_behind_master
0	0	0	0s	0s	DBIx::Class::Storage::DBI::mysql::sqlt_type
0	0	0	0s	0s	DBIx::Class::Storage::DBI::mysql::with_deferred_fk_checks

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package DBIx::Class::Storage::DBI::mysql;
2
3	2	45µs	2	40µs	# spent 28µs (17+11) within DBIx::Class::Storage::DBI::mysql::BEGIN@3 which was called: # once (17µs+11µs) by Class::C3::Componentised::ensure_class_loaded at line 3 use strict; # spent 28µs making 1 call to DBIx::Class::Storage::DBI::mysql::BEGIN@3 # spent 11µs making 1 call to strict::import
4	2	50µs	2	34µs	# spent 24µs (14+10) within DBIx::Class::Storage::DBI::mysql::BEGIN@4 which was called: # once (14µs+10µs) by Class::C3::Componentised::ensure_class_loaded at line 4 use warnings; # spent 24µs making 1 call to DBIx::Class::Storage::DBI::mysql::BEGIN@4 # spent 10µs making 1 call to warnings::import
5
6	2	99µs	2	142µs	# spent 77µs (12+65) within DBIx::Class::Storage::DBI::mysql::BEGIN@6 which was called: # once (12µs+65µs) by Class::C3::Componentised::ensure_class_loaded at line 6 use base qw/DBIx::Class::Storage::DBI/; # spent 77µs making 1 call to DBIx::Class::Storage::DBI::mysql::BEGIN@6 # spent 65µs making 1 call to base::import
7
8	2	1.10ms	2	191µs	# spent 101µs (10+91) within DBIx::Class::Storage::DBI::mysql::BEGIN@8 which was called: # once (10µs+91µs) by Class::C3::Componentised::ensure_class_loaded at line 8 use namespace::clean; # spent 101µs making 1 call to DBIx::Class::Storage::DBI::mysql::BEGIN@8 # spent 91µs making 1 call to namespace::clean::import
9
10	1	7µs	1	34µs	__PACKAGE__->sql_maker_class('DBIx::Class::SQLMaker::MySQL'); # spent 34µs making 1 call to DBIx::Class::Storage::DBI::sql_maker_class
11	1	4µs	1	9µs	__PACKAGE__->sql_limit_dialect ('LimitXY'); # spent 9µs making 1 call to DBIx::Class::Storage::DBI::sql_limit_dialect
12	1	4µs	1	9µs	__PACKAGE__->sql_quote_char ('`'); # spent 9µs making 1 call to DBIx::Class::Storage::DBI::sql_quote_char
13
14	1	3µs	1	14µs	__PACKAGE__->_use_multicolumn_in (1); # spent 14µs making 1 call to DBIx::Class::Storage::DBI::_use_multicolumn_in
15
16					sub with_deferred_fk_checks {
17					my ($self, $sub) = @_;
18
19					$self->_do_query('SET FOREIGN_KEY_CHECKS = 0');
20					$sub->();
21					$self->_do_query('SET FOREIGN_KEY_CHECKS = 1');
22					}
23
24					sub connect_call_set_strict_mode {
25					my $self = shift;
26
27					# the @@sql_mode puts back what was previously set on the session handle
28					$self->_do_query(q\|SET SQL_MODE = CONCAT('ANSI,TRADITIONAL,ONLY_FULL_GROUP_BY,', @@sql_mode)\|);
29					$self->_do_query(q\|SET SQL_AUTO_IS_NULL = 0\|);
30					}
31
32					sub _dbh_last_insert_id {
33					my ($self, $dbh, $source, $col) = @_;
34					$dbh->{mysql_insertid};
35					}
36
37					# spent 4.59ms (34µs+4.56) within DBIx::Class::Storage::DBI::mysql::_prep_for_execute which was called 3 times, avg 1.53ms/call: # 3 times (34µs+4.56ms) by DBIx::Class::Storage::DBI::_execute at line 1806 of DBIx/Class/Storage/DBI.pm, avg 1.53ms/call sub _prep_for_execute {
38	3	1µs			my $self = shift;
39					#(my $op, $ident, $args) = @_;
40
41					# Only update and delete need special double-subquery treatment
42					# Insert referencing the same table (i.e. SELECT MAX(id) + 1) seems
43					# to work just fine on MySQL
44	3	41µs	3	16µs	return $self->next::method(@_) if ( $_[0] eq 'select' or $_[0] eq 'insert' ); # spent 16µs making 3 calls to next::method, avg 5µs/call
45
46
47					# FIXME FIXME FIXME - this is a terrible, gross, incomplete hack
48					# it should be trivial for mst to port this to DQ (and a good
49					# exercise as well, since we do not yet have such wide tree walking
50					# in place). For the time being this will work in limited cases,
51					# mainly complex update/delete, which is really all we want it for
52					# currently (allows us to fix some bugs without breaking MySQL in
53					# the process, and is also crucial for Shadow to be usable)
54
55					# extract the source name, construct modification indicator re
56					my $sm = $self->sql_maker;
57
58					my $target_name = $_[1]->from;
59
60					if (ref $target_name) {
61					if (
62					ref $target_name eq 'SCALAR'
63					and
64					$$target_name =~ /^ (?:
65					\` ( [^`]+ ) \` #`
66					\| ( [\w\-]+ )
67					) $/x
68					) {
69					# this is just a plain-ish name, which has been literal-ed for
70					# whatever reason
71					$target_name = (defined $1) ? $1 : $2;
72					}
73					else {
74					# this is something very complex, perhaps a custom result source or whatnot
75					# can't deal with it
76					undef $target_name;
77					}
78					}
79
80					local $sm->{_modification_target_referenced_re} =
81					qr/ (?<!DELETE) [\s\)] (?: FROM \| JOIN ) \s (?: \` \Q$target_name\E \` \| \Q$target_name\E ) [\s\(] /xi
82					if $target_name;
83
84					$self->next::method(@_);
85					}
86
87					# here may seem like an odd place to override, but this is the first
88					# method called after we are connected and the driver is determined
89					# ($self is reblessed). See code flow in ::Storage::DBI::_populate_dbh
90					# spent 3.01ms (58µs+2.95) within DBIx::Class::Storage::DBI::mysql::_run_connection_actions which was called: # once (58µs+2.95ms) by DBIx::Class::Storage::DBI::_populate_dbh at line 1056 of DBIx/Class/Storage/DBI.pm sub _run_connection_actions {
91	1	300ns			my $self = shift;
92
93					# default mysql_auto_reconnect to off unless explicitly set
94	1	35µs	5	12µs	if ( # spent 8µs making 1 call to DBI::common::FETCH # spent 2µs making 1 call to DBI::common::STORE # spent 1µs making 2 calls to DBIx::Class::Storage::DBI::_dbh, avg 650ns/call # spent 900ns making 1 call to DBIx::Class::Storage::DBI::_dbic_connect_attributes
95					$self->_dbh->{mysql_auto_reconnect}
96					and
97					! exists $self->_dbic_connect_attributes->{mysql_auto_reconnect}
98					) {
99					$self->_dbh->{mysql_auto_reconnect} = 0;
100					}
101
102	1	18µs	1	9µs	$self->next::method(@_); # spent 9µs making 1 call to next::method
103					}
104
105					# we need to figure out what mysql version we're running
106					# spent 11.9ms (125µs+11.8) within DBIx::Class::Storage::DBI::mysql::sql_maker which was called 6 times, avg 1.99ms/call: # 3 times (76µs+11.8ms) by DBIx::Class::Storage::DBI::_select_args at line 2424 of DBIx/Class/Storage/DBI.pm, avg 3.95ms/call # 3 times (48µs+43µs) by DBIx::Class::Storage::DBI::_gen_sql_bind at line 1649 of DBIx/Class/Storage/DBI.pm, avg 30µs/call sub sql_maker {
107	6	2µs			my $self = shift;
108
109					# it is critical to get the version before calling next::method
110					# otherwise the potential connect will obliterate the sql_maker
111					# next::method will populate in the _sql_maker accessor
112	6	27µs	6	360µs	my $mysql_ver = $self->_server_info->{normalized_dbms_version}; # spent 360µs making 6 calls to DBIx::Class::Storage::DBI::_server_info, avg 60µs/call
113
114	6	56µs	6	30µs	my $sm = $self->next::method(@_); # spent 30µs making 6 calls to next::method, avg 5µs/call
115
116					# mysql 3 does not understand a bare JOIN
117	6	9µs			$sm->{_default_jointype} = 'INNER' if $mysql_ver < 4;
118
119	6	16µs			$sm;
120					}
121
122					sub sqlt_type {
123					return 'MySQL';
124					}
125
126					sub deployment_statements {
127					my $self = shift;
128					my ($schema, $type, $version, $dir, $sqltargs, @rest) = @_;
129
130					$sqltargs \|\|= {};
131
132					if (
133					! exists $sqltargs->{producer_args}{mysql_version}
134					and
135					my $dver = $self->_server_info->{normalized_dbms_version}
136					) {
137					$sqltargs->{producer_args}{mysql_version} = $dver;
138					}
139
140					$self->next::method($schema, $type, $version, $dir, $sqltargs, @rest);
141					}
142
143					sub _exec_svp_begin {
144					my ($self, $name) = @_;
145
146					$self->_dbh->do("SAVEPOINT $name");
147					}
148
149					sub _exec_svp_release {
150					my ($self, $name) = @_;
151
152					$self->_dbh->do("RELEASE SAVEPOINT $name");
153					}
154
155					sub _exec_svp_rollback {
156					my ($self, $name) = @_;
157
158					$self->_dbh->do("ROLLBACK TO SAVEPOINT $name")
159					}
160
161					sub is_replicating {
162					my $status = shift->_get_dbh->selectrow_hashref('show slave status');
163					return ($status->{Slave_IO_Running} eq 'Yes') && ($status->{Slave_SQL_Running} eq 'Yes');
164					}
165
166					sub lag_behind_master {
167					return shift->_get_dbh->selectrow_hashref('show slave status')->{Seconds_Behind_Master};
168					}
169
170	1	4µs			1;
171
172					=head1 NAME
173
174					DBIx::Class::Storage::DBI::mysql - Storage::DBI class implementing MySQL specifics
175
176					=head1 SYNOPSIS
177
178					Storage::DBI autodetects the underlying MySQL database, and re-blesses the
179					C<$storage> object into this class.
180
181					my $schema = MyApp::Schema->connect( $dsn, $user, $pass, { on_connect_call => 'set_strict_mode' } );
182
183					=head1 DESCRIPTION
184
185					This class implements MySQL specific bits of L<DBIx::Class::Storage::DBI>,
186					like AutoIncrement column support and savepoints. Also it augments the
187					SQL maker to support the MySQL-specific C<STRAIGHT_JOIN> join type, which
188					you can use by specifying C<< join_type => 'straight' >> in the
189					L<relationship attributes\|DBIx::Class::Relationship::Base/join_type>
190
191
192					It also provides a one-stop on-connect macro C<set_strict_mode> which sets
193					session variables such that MySQL behaves more predictably as far as the
194					SQL standard is concerned.
195
196					=head1 STORAGE OPTIONS
197
198					=head2 set_strict_mode
199
200					Enables session-wide strict options upon connecting. Equivalent to:
201
202					->connect ( ... , {
203					on_connect_do => [
204					q\|SET SQL_MODE = CONCAT('ANSI,TRADITIONAL,ONLY_FULL_GROUP_BY,', @@sql_mode)\|,
205					q\|SET SQL_AUTO_IS_NULL = 0\|,
206					]
207					});
208
209					=head1 FURTHER QUESTIONS?
210
211					Check the list of L<additional DBIC resources\|DBIx::Class/GETTING HELP/SUPPORT>.
212
213					=head1 COPYRIGHT AND LICENSE
214
215					This module is free software L<copyright\|DBIx::Class/COPYRIGHT AND LICENSE>
216					by the L<DBIx::Class (DBIC) authors\|DBIx::Class/AUTHORS>. You can
217					redistribute it and/or modify it under the same terms as the
218			1	22µs	L<DBIx::Class library\|DBIx::Class/COPYRIGHT AND LICENSE>. # spent 22µs making 1 call to B::Hooks::EndOfScope::XS::__ANON__

					# spent 2µs within DBIx::Class::Storage::DBI::mysql::debug which was called 3 times, avg 733ns/call: # once (1µs+0s) by DBIx::Class::Storage::DBI::_query_start at line 1764 of DBIx/Class/Storage/DBI.pm # once (700ns+0s) by DBIx::Class::Storage::DBI::_query_end at line 1771 of DBIx/Class/Storage/DBI.pm # once (400ns+0s) by DBIx::Class::Storage::DBI::_query_start at line 913 of Class/Accessor/Grouped.pm sub DBIx::Class::Storage::DBI::mysql::debug; # xsub
					# spent 1µs within DBIx::Class::Storage::DBI::mysql::disable_sth_caching which was called 2 times, avg 550ns/call: # once (600ns+0s) by DBIx::Class::Storage::DBI::_prepare_sth at line 1846 of DBIx/Class/Storage/DBI.pm # once (500ns+0s) by DBIx::Class::Storage::DBI::_prepare_sth at line 913 of Class/Accessor/Grouped.pm sub DBIx::Class::Storage::DBI::mysql::disable_sth_caching; # xsub
					# spent 500ns within DBIx::Class::Storage::DBI::mysql::on_connect_call which was called: # once (500ns+0s) by DBIx::Class::Storage::DBI::mysql::_run_connection_actions at line 913 of Class/Accessor/Grouped.pm sub DBIx::Class::Storage::DBI::mysql::on_connect_call; # xsub
					# spent 2µs within DBIx::Class::Storage::DBI::mysql::transaction_depth which was called 3 times, avg 733ns/call: # once (1µs+0s) by DBIx::Class::Storage::DBI::dbh_do at line 837 of DBIx/Class/Storage/DBI.pm # once (600ns+0s) by DBIx::Class::Storage::BlockRunner::__ANON__[/usr/share/perl5/DBIx/Class/Storage/BlockRunner.pm:233] at line 159 of DBIx/Class/Storage/BlockRunner.pm # once (400ns+0s) by DBIx::Class::Storage::DBI::dbh_do at line 913 of Class/Accessor/Grouped.pm sub DBIx::Class::Storage::DBI::mysql::transaction_depth; # xsub