Just made a little more readable.
Ken Youens-Clark [Fri, 7 Aug 2009 18:37:57 +0000 (18:37 +0000)]
lib/SQL/Translator/Parser/DBI/MySQL.pm

index 6c00894..dcabb1b 100644 (file)
@@ -49,7 +49,9 @@ sub parse {
     my ( $tr, $dbh ) = @_;
     my $schema       = $tr->schema;
     my @table_names  = @{ $dbh->selectcol_arrayref('show tables') };
-    my @skip_tables = defined $tr->parser_args->{skip}?split(/,/, $tr->parser_args->{skip}):();
+    my @skip_tables  = defined $tr->parser_args->{skip}
+                       ? split(/,/, $tr->parser_args->{skip})
+                       : ();
 
     $dbh->{'FetchHashKeyName'} = 'NAME_lc';