6 my $pargs = $tr->parser_args;
8 my @fields = split /$pargs->{'delimiter'}/, $data;
10 my $schema = $tr->schema;
11 my $table = $schema->add_table( name => 'foo') or die $schema->error;
12 for my $value ( @fields ) {
13 my $field = $table->add_field( name => $value ) or die $table->error;
19 # The "data" to be parsed
20 my $data = q(Id|Name|Phone Number|Favorite Flavor|);
22 my $tr = SQL::Translator->new;
24 # Pass parser_args as an explicit method call
25 $tr->parser(\&silly_parser);
26 $tr->parser_args(delimiter => '\|');
28 my $pargs = $tr->parser_args;
29 $tr->translate(\$data);
30 my $schema = $tr->schema;
32 is($pargs->{'delimiter'}, '\|', "parser_args works when called directly");
33 my @tables = $schema->get_tables;
34 is(scalar @tables, 1, "right number of tables");
35 my $table = shift @tables;
36 my @fields = $table->get_fields;
37 is(scalar @fields, 4, "right number of fields");
40 # Blow away the existing schema object.
44 # Now, pass parser_args indirectly...
45 $tr->parser(\&silly_parser, { delimiter => "\t" });
48 $pargs = $tr->parser_args;
49 $tr->translate(\$data);
51 is($pargs->{'delimiter'}, "\t",
52 "parser_args works when called indirectly");
54 @tables = $schema->get_tables;
55 is(scalar @tables, 1, "right number of tables");
56 $table = shift @tables;
57 @fields = $table->get_fields;
58 is(scalar @fields, 4, "right number of fields");
61 $tr = SQL::Translator->new(parser => \&silly_parser,
62 parser_args => { delimiter => ":" });
64 $pargs = $tr->parser_args;
65 $tr->translate(\$data);
67 is($pargs->{'delimiter'}, ":",
68 "parser_args works when called as constructor arg");
70 @tables = $schema->get_tables;
71 is(scalar @tables, 1, "right number of tables");
72 $table = shift @tables;
73 @fields = $table->get_fields;
74 is(scalar @fields, 4, "right number of fields with new delimiter");