X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FFilter%2FDefaultExtra.pm;h=405cfe805ded13bbda04a94b7d422f7f6174599d;hb=ba506e52c480afe33dfec6b38a12759fad1e7fa2;hp=b29542624100ff0c198210a542b295a9f7543b76;hpb=478f608d9028508396da37bb5df10b3057b96981;p=dbsrgits%2FSQL-Translator.git

diff --git a/lib/SQL/Translator/Filter/DefaultExtra.pm b/lib/SQL/Translator/Filter/DefaultExtra.pm
index b295426..405cfe8 100644
--- a/lib/SQL/Translator/Filter/DefaultExtra.pm
+++ b/lib/SQL/Translator/Filter/DefaultExtra.pm
@@ -1,8 +1,6 @@
 package SQL::Translator::Filter::DefaultExtra;
 
 # -------------------------------------------------------------------
-# $Id$
-# -------------------------------------------------------------------
 # Copyright (C) 2002-2009 SQLFairy Authors
 #
 # This program is free software; you can redistribute it and/or
@@ -53,14 +51,14 @@ objects.
 
 use strict;
 use vars qw/$VERSION/;
-$VERSION=0.1;
+$VERSION = '1.60';
 
 sub filter {
     my $schema = shift;
     my %args = { +shift };
 
     # Tables
-    foreach ( $schema->get_tables ) {
+    for ( $schema->get_tables ) {
         my %extra = $_->extra;
 
         $extra{label} ||= ucfirst($_->name);
@@ -68,7 +66,7 @@ sub filter {
     }
 
     # Fields
-    foreach ( map { $_->get_fields } $schema->get_tables ) {
+    for ( map { $_->get_fields } $schema->get_tables ) {
         my %extra = $_->extra;
 
         $extra{label} ||= ucfirst($_->name);
@@ -82,17 +80,15 @@ __END__
 
 =head1 DESCRIPTION
 
-Maybe I'm trying to do too much in one go. Args set a match and then an update,
-if you want to set lots of things, use lots of filters!
+Maybe I'm trying to do too much in one go. Args set a match and then
+an update, if you want to set lots of things, use lots of filters!
 
 =head1 SEE ALSO
 
 L<perl(1)>, L<SQL::Translator>
 
-=head1 BUGS
-
-=head1 TODO
-
 =head1 AUTHOR
 
+Unknown.
+
 =cut