my ($p, $tables, $classes);
$p = HTML::Parser->new(api_version => 3);
-$p->strict_names(1);
+$p->strict_names(1);
my $create = q|
CREATE TABLE foo (
|;
my $tr = SQL::Translator->new(parser => 'MySQL', producer => 'HTML');
-my $parsed = $tr->translate(data => $create);
+my $parsed = $tr->translate(data => $create) or die $tr->error;
my $status;
eval {
- $status = $p->parse($parsed);
+ $status = $p->parse($parsed);
};
if ($@) {
+ daig $@;
fail("Unable to parse the output!");
}
$classes++;
}
}, 'tagname,attr',
- ],
+ ],
);
}