← Index
NYTProf Performance Profile   « block view • line view • sub view »
For xt/tapper-mcp-scheduler-with-db-longrun.t
  Run on Tue May 22 17:18:39 2012
Reported on Tue May 22 17:24:04 2012

Filename/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/SQL/Translator/Producer.pm
StatementsExecuted 1358 statements in 1.68ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
240111.40ms1.91msSQL::Translator::Producer::::_apply_default_valueSQL::Translator::Producer::_apply_default_value
551184µs84µsSQL::Translator::Producer::::CORE:matchSQL::Translator::Producer::CORE:match (opcode)
11114µs18µsSQL::Translator::Producer::::BEGIN@21SQL::Translator::Producer::BEGIN@21
1118µs40µsSQL::Translator::Producer::::BEGIN@22SQL::Translator::Producer::BEGIN@22
1114µs4µsSQL::Translator::Producer::::BEGIN@23SQL::Translator::Producer::BEGIN@23
0000s0sSQL::Translator::Producer::::produceSQL::Translator::Producer::produce
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package SQL::Translator::Producer;
2
3# -------------------------------------------------------------------
4# Copyright (C) 2002-4 SQLFairy Authors
5#
6# This program is free software; you can redistribute it and/or
7# modify it under the terms of the GNU General Public License as
8# published by the Free Software Foundation; version 2.
9#
10# This program is distributed in the hope that it will be useful, but
11# WITHOUT ANY WARRANTY; without even the implied warranty of
12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13# General Public License for more details.
14#
15# You should have received a copy of the GNU General Public License
16# along with this program; if not, write to the Free Software
17# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
18# 02111-1307 USA
19# -------------------------------------------------------------------
20
21321µs222µs
# spent 18µs (14+4) within SQL::Translator::Producer::BEGIN@21 which was called: # once (14µs+4µs) by SQL::Translator::BEGIN@38 at line 21
use strict;
# spent 18µs making 1 call to SQL::Translator::Producer::BEGIN@21 # spent 4µs making 1 call to strict::import
22320µs272µs
# spent 40µs (8+32) within SQL::Translator::Producer::BEGIN@22 which was called: # once (8µs+32µs) by SQL::Translator::BEGIN@38 at line 22
use vars qw($VERSION);
# spent 40µs making 1 call to SQL::Translator::Producer::BEGIN@22 # spent 32µs making 1 call to vars::import
233231µs14µs
# spent 4µs within SQL::Translator::Producer::BEGIN@23 which was called: # once (4µs+0s) by SQL::Translator::BEGIN@38 at line 23
use Scalar::Util ();
# spent 4µs making 1 call to SQL::Translator::Producer::BEGIN@23
241700ns$VERSION = '1.59';
25
26sub produce { "" }
27
28# Do not rely on this if you are not bundled with SQL::Translator.
29# -- rjbs, 2008-09-30
30## $exceptions contains an arrayref of paired values
31## Each pair contains a pattern match or string, and a value to be used as
32## the default if matched.
33## They are special per Producer, and provide support for the old 'now()'
34## default value exceptions
35
# spent 1.91ms (1.40+510µs) within SQL::Translator::Producer::_apply_default_value which was called 240 times, avg 8µs/call: # 240 times (1.40ms+510µs) by SQL::Translator::Producer::SQLite::create_field at line 321 of SQL/Translator/Producer/SQLite.pm, avg 8µs/call
sub _apply_default_value {
36240100µs my (undef, $field, $field_ref, $exceptions) = @_;
37240235µs240323µs my $default = $field->default_value;
# spent 323µs making 240 calls to SQL::Translator::Schema::Field::default_value, avg 1µs/call
38240333µs return if !defined $default;
39
405525µs if ($exceptions and ! ref $default) {
414485µs for (my $i = 0; $i < @$exceptions; $i += 2) {
4213290µs my ($pat, $val) = @$exceptions[ $i, $i + 1 ];
4313263µs if (ref $pat and $default =~ $pat) {
44 $default = $val;
45 last;
46 } elsif (lc $default eq lc $pat) {
47 $default = $val;
48 last
49 }
50449µs }
51 }
52
535572µs5581µs my $type = lc $field->data_type;
# spent 81µs making 55 calls to SQL::Translator::Schema::Field::data_type, avg 1µs/call
5455182µs5584µs my $is_numeric_datatype = ($type =~ /^(?:(?:big|medium|small|tiny)?int(?:eger)?|decimal|double|float|num(?:ber|eric)?|real)$/);
# spent 84µs making 55 calls to SQL::Translator::Producer::CORE:match, avg 2µs/call
55
5655168µs1322µs if (ref $default) {
# spent 22µs making 13 calls to Scalar::Util::looks_like_number, avg 2µs/call
571112µs $$field_ref .= " DEFAULT $$default";
58 } elsif ($is_numeric_datatype && Scalar::Util::looks_like_number ($default) ) {
59 # we need to check the data itself in addition to the datatype, for basic safety
60138µs $$field_ref .= " DEFAULT $default";
61 } else {
623121µs $$field_ref .= " DEFAULT '$default'";
63 }
64
65}
66
6712µs1;
68
69# -------------------------------------------------------------------
70# A burnt child loves the fire.
71# Oscar Wilde
72# -------------------------------------------------------------------
73
74=pod
75
76=head1 NAME
77
78SQL::Translator::Producer - describes how to write a producer
79
80=head1 DESCRIPTION
81
82Producer modules designed to be used with SQL::Translator need to
83implement a single function, called B<produce>. B<produce> will be
84called with the SQL::Translator object from which it is expected to
85retrieve the SQL::Translator::Schema object which has been populated
86by the parser. It is expected to return a string.
87
88=head1 METHODS
89
90=over 4
91
92=item produce
93
94=item create_table($table)
95
96=item create_field($field)
97
98=item create_view($view)
99
100=item create_index($index)
101
102=item create_constraint($constraint)
103
104=item create_trigger($trigger)
105
106=item alter_field($from_field, $to_field)
107
108=item add_field($table, $new_field)
109
110=item drop_field($table, $old_field)
111
112=back
113
114=head1 AUTHORS
115
116Darren Chamberlain E<lt>darren@cpan.orgE<gt>,
117Ken Y. Clark E<lt>kclark@cpan.orgE<gt>.
118
119=head1 SEE ALSO
120
121perl(1), SQL::Translator, SQL::Translator::Schema.
122
123=cut
 
# spent 84µs within SQL::Translator::Producer::CORE:match which was called 55 times, avg 2µs/call: # 55 times (84µs+0s) by SQL::Translator::Producer::_apply_default_value at line 54, avg 2µs/call
sub SQL::Translator::Producer::CORE:match; # opcode