'SQL::Translator::Producer::YAML');
}
-my $yaml = <<'YAML';
---- #YAML:1.0
+my $sqlt_version = $SQL::Translator::VERSION;
+my $yaml = <<YAML;
+---
schema:
procedures: {}
tables:
type: UNIQUE
fields:
age:
+ comments: ''
data_type: integer
default_value: ~
extra: {}
size:
- 0
description:
+ comments: ''
data_type: text
default_value: ~
extra: {}
size:
- 0
iq:
+ comments: ''
data_type: tinyint
default_value: 0
extra: {}
size:
- 0
name:
+ comments: ''
data_type: varchar
default_value: ~
extra: {}
size:
- 20
person_id:
+ comments: ''
data_type: INTEGER
default_value: ~
extra: {}
size:
- 0
weight:
+ comments: ''
data_type: double
default_value: ~
extra: {}
constraints:
- deferrable: 1
expression: ''
- fields: ~
+ fields: ''
match_type: ''
name: ''
on_delete: ''
type: PRIMARY KEY
fields:
age:
+ comments: ''
data_type: int
default_value: ~
extra: {}
size:
- 0
name:
+ comments: ''
data_type: varchar
default_value: ~
extra: {}
size:
- 30
person_id:
+ comments: ''
data_type: int
default_value: ~
extra: {}
size:
- 0
pet_id:
+ comments: ''
data_type: int
default_value: ~
extra: {}
perform_action_when: ~
views:
person_pet:
- fields: ~
+ fields: ''
name: person_pet
order: 1
sql: |
where person.person_id=pet.pet_id
translator:
add_drop_table: 0
- filename: '/work/sqlfairy/sqlfairy/t/data/sqlite/create.sql'
+ filename: ~
no_comments: 0
parser_args: {}
parser_type: SQL::Translator::Parser::SQLite
producer_type: SQL::Translator::Producer::YAML
show_warnings: 0
trace: 0
- version: 0.05
+ version: $sqlt_version
YAML
-my $tr = SQL::Translator->new(
+my $file = "$Bin/data/sqlite/create.sql";
+open FH, "<$file" or die "Can't read '$file': $!\n";
+local $/;
+my $data = <FH>;
+my $tr = SQL::Translator->new(
parser => 'SQLite',
producer => 'YAML',
- filename => "$Bin/data/sqlite/create.sql",
+ data => $data,
);
my $out;