Filename | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/SQL/Translator/Schema/Constants.pm |
Statements | Executed 40 statements in 275µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 18µs | 41µs | BEGIN@97 | SQL::Translator::Schema::Constants::
1 | 1 | 1 | 12µs | 14µs | BEGIN@60 | SQL::Translator::Schema::Constants::
1 | 1 | 1 | 10µs | 64µs | BEGIN@81 | SQL::Translator::Schema::Constants::
1 | 1 | 1 | 9µs | 33µs | BEGIN@87 | SQL::Translator::Schema::Constants::
1 | 1 | 1 | 9µs | 101µs | BEGIN@61 | SQL::Translator::Schema::Constants::
1 | 1 | 1 | 7µs | 30µs | BEGIN@89 | SQL::Translator::Schema::Constants::
1 | 1 | 1 | 6µs | 31µs | BEGIN@83 | SQL::Translator::Schema::Constants::
1 | 1 | 1 | 6µs | 34µs | BEGIN@62 | SQL::Translator::Schema::Constants::
1 | 1 | 1 | 6µs | 30µs | BEGIN@95 | SQL::Translator::Schema::Constants::
1 | 1 | 1 | 6µs | 33µs | BEGIN@93 | SQL::Translator::Schema::Constants::
1 | 1 | 1 | 6µs | 29µs | BEGIN@85 | SQL::Translator::Schema::Constants::
1 | 1 | 1 | 6µs | 30µs | BEGIN@91 | SQL::Translator::Schema::Constants::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package SQL::Translator::Schema::Constants; | ||||
2 | |||||
3 | # ---------------------------------------------------------------------- | ||||
4 | # Copyright (C) 2002-2009 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 | |||||
21 | =head1 NAME | ||||
22 | |||||
23 | SQL::Translator::Schema::Constants - constants module | ||||
24 | |||||
25 | =head1 SYNOPSIS | ||||
26 | |||||
27 | use SQL::Translator::Schema::Constants; | ||||
28 | |||||
29 | $table->add_constraint( | ||||
30 | name => 'foo', | ||||
31 | type => PRIMARY_KEY, | ||||
32 | ); | ||||
33 | |||||
34 | =head1 DESCRIPTION | ||||
35 | |||||
36 | This module exports the following constants for Schema features; | ||||
37 | |||||
38 | =over 4 | ||||
39 | |||||
40 | =item CHECK_C | ||||
41 | |||||
42 | =item FOREIGN_KEY | ||||
43 | |||||
44 | =item FULL_TEXT | ||||
45 | |||||
46 | =item NOT_NULL | ||||
47 | |||||
48 | =item NORMAL | ||||
49 | |||||
50 | =item NULL | ||||
51 | |||||
52 | =item PRIMARY_KEY | ||||
53 | |||||
54 | =item UNIQUE | ||||
55 | |||||
56 | =back | ||||
57 | |||||
58 | =cut | ||||
59 | |||||
60 | 3 | 20µs | 2 | 16µs | # spent 14µs (12+2) within SQL::Translator::Schema::Constants::BEGIN@60 which was called:
# once (12µs+2µs) by SQL::Translator::Schema::BEGIN@48 at line 60 # spent 14µs making 1 call to SQL::Translator::Schema::Constants::BEGIN@60
# spent 2µs making 1 call to strict::import |
61 | 3 | 25µs | 2 | 193µs | # spent 101µs (9+92) within SQL::Translator::Schema::Constants::BEGIN@61 which was called:
# once (9µs+92µs) by SQL::Translator::Schema::BEGIN@48 at line 61 # spent 101µs making 1 call to SQL::Translator::Schema::Constants::BEGIN@61
# spent 92µs making 1 call to base::import |
62 | 3 | 42µs | 2 | 61µs | # spent 34µs (6+28) within SQL::Translator::Schema::Constants::BEGIN@62 which was called:
# once (6µs+28µs) by SQL::Translator::Schema::BEGIN@48 at line 62 # spent 34µs making 1 call to SQL::Translator::Schema::Constants::BEGIN@62
# spent 28µs making 1 call to vars::import |
63 | 1 | 400ns | require Exporter; | ||
64 | 1 | 500ns | $VERSION = '1.59'; | ||
65 | |||||
66 | 1 | 2µs | @EXPORT = qw[ | ||
67 | CHECK_C | ||||
68 | FOREIGN_KEY | ||||
69 | FULL_TEXT | ||||
70 | SPATIAL | ||||
71 | NOT_NULL | ||||
72 | NORMAL | ||||
73 | NULL | ||||
74 | PRIMARY_KEY | ||||
75 | UNIQUE | ||||
76 | ]; | ||||
77 | |||||
78 | # | ||||
79 | # Because "CHECK" is a Perl keyword | ||||
80 | # | ||||
81 | 3 | 23µs | 2 | 117µs | # spent 64µs (10+53) within SQL::Translator::Schema::Constants::BEGIN@81 which was called:
# once (10µs+53µs) by SQL::Translator::Schema::BEGIN@48 at line 81 # spent 64µs making 1 call to SQL::Translator::Schema::Constants::BEGIN@81
# spent 54µs making 1 call to constant::import |
82 | |||||
83 | 3 | 19µs | 2 | 55µs | # spent 31µs (6+24) within SQL::Translator::Schema::Constants::BEGIN@83 which was called:
# once (6µs+24µs) by SQL::Translator::Schema::BEGIN@48 at line 83 # spent 31µs making 1 call to SQL::Translator::Schema::Constants::BEGIN@83
# spent 24µs making 1 call to constant::import |
84 | |||||
85 | 3 | 18µs | 2 | 51µs | # spent 29µs (6+23) within SQL::Translator::Schema::Constants::BEGIN@85 which was called:
# once (6µs+23µs) by SQL::Translator::Schema::BEGIN@48 at line 85 # spent 29µs making 1 call to SQL::Translator::Schema::Constants::BEGIN@85
# spent 23µs making 1 call to constant::import |
86 | |||||
87 | 3 | 19µs | 2 | 58µs | # spent 33µs (9+24) within SQL::Translator::Schema::Constants::BEGIN@87 which was called:
# once (9µs+24µs) by SQL::Translator::Schema::BEGIN@48 at line 87 # spent 33µs making 1 call to SQL::Translator::Schema::Constants::BEGIN@87
# spent 24µs making 1 call to constant::import |
88 | |||||
89 | 3 | 26µs | 2 | 54µs | # spent 30µs (7+23) within SQL::Translator::Schema::Constants::BEGIN@89 which was called:
# once (7µs+23µs) by SQL::Translator::Schema::BEGIN@48 at line 89 # spent 30µs making 1 call to SQL::Translator::Schema::Constants::BEGIN@89
# spent 23µs making 1 call to constant::import |
90 | |||||
91 | 3 | 19µs | 2 | 55µs | # spent 30µs (6+25) within SQL::Translator::Schema::Constants::BEGIN@91 which was called:
# once (6µs+25µs) by SQL::Translator::Schema::BEGIN@48 at line 91 # spent 30µs making 1 call to SQL::Translator::Schema::Constants::BEGIN@91
# spent 25µs making 1 call to constant::import |
92 | |||||
93 | 3 | 18µs | 2 | 59µs | # spent 33µs (6+27) within SQL::Translator::Schema::Constants::BEGIN@93 which was called:
# once (6µs+27µs) by SQL::Translator::Schema::BEGIN@48 at line 93 # spent 33µs making 1 call to SQL::Translator::Schema::Constants::BEGIN@93
# spent 27µs making 1 call to constant::import |
94 | |||||
95 | 3 | 22µs | 2 | 53µs | # spent 30µs (6+23) within SQL::Translator::Schema::Constants::BEGIN@95 which was called:
# once (6µs+23µs) by SQL::Translator::Schema::BEGIN@48 at line 95 # spent 30µs making 1 call to SQL::Translator::Schema::Constants::BEGIN@95
# spent 23µs making 1 call to constant::import |
96 | |||||
97 | 3 | 18µs | 2 | 64µs | # spent 41µs (18+23) within SQL::Translator::Schema::Constants::BEGIN@97 which was called:
# once (18µs+23µs) by SQL::Translator::Schema::BEGIN@48 at line 97 # spent 41µs making 1 call to SQL::Translator::Schema::Constants::BEGIN@97
# spent 23µs making 1 call to constant::import |
98 | |||||
99 | 1 | 3µs | 1; | ||
100 | |||||
101 | # ---------------------------------------------------------------------- | ||||
102 | |||||
103 | =pod | ||||
104 | |||||
105 | =head1 AUTHOR | ||||
106 | |||||
107 | Ken Youens-Clark E<lt>kclark@cpan.orgE<gt>. | ||||
108 | |||||
109 | =cut |