};
BEGIN {
- maybe_plan(2,
+ maybe_plan(2,
'SQL::Translator::Parser::MySQL',
'SQL::Translator::Producer::XML::SQLFairy');
}
require XML::Parser;
};
if ($@) {
- skip "Can't load XML::Parser" => 1;
+ skip "Can't load XML::Parser" => 1;
}
# Can't get XML::Parser::parsestring to do Useful Things
SUFFIX => '.xml',
DIR => tmpdir);
print $fh $data;
- $fh->close;
+ close $fh;
ok(XML::Parser->new->parsefile($fname),
"Successfully parsed output");