| 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 | SQL::Translator::Schema::Constants::BEGIN@97 |
| 1 | 1 | 1 | 12µs | 14µs | SQL::Translator::Schema::Constants::BEGIN@60 |
| 1 | 1 | 1 | 10µs | 64µs | SQL::Translator::Schema::Constants::BEGIN@81 |
| 1 | 1 | 1 | 9µs | 33µs | SQL::Translator::Schema::Constants::BEGIN@87 |
| 1 | 1 | 1 | 9µs | 101µs | SQL::Translator::Schema::Constants::BEGIN@61 |
| 1 | 1 | 1 | 7µs | 30µs | SQL::Translator::Schema::Constants::BEGIN@89 |
| 1 | 1 | 1 | 6µs | 31µs | SQL::Translator::Schema::Constants::BEGIN@83 |
| 1 | 1 | 1 | 6µs | 34µs | SQL::Translator::Schema::Constants::BEGIN@62 |
| 1 | 1 | 1 | 6µs | 30µs | SQL::Translator::Schema::Constants::BEGIN@95 |
| 1 | 1 | 1 | 6µs | 33µs | SQL::Translator::Schema::Constants::BEGIN@93 |
| 1 | 1 | 1 | 6µs | 29µs | SQL::Translator::Schema::Constants::BEGIN@85 |
| 1 | 1 | 1 | 6µs | 30µs | SQL::Translator::Schema::Constants::BEGIN@91 |
| 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 |