package SQL::Translator::Filter::DefaultExtra;
# -------------------------------------------------------------------
-# $Id: DefaultExtra.pm,v 1.1 2005-12-16 10:25:00 grommit Exp $
-# -------------------------------------------------------------------
-# Copyright (C) 2002-4 SQLFairy Authors
+# Copyright (C) 2002-2009 SQLFairy Authors
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
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);
}
# Fields
- foreach ( map { $_->get_fields } $schema->get_tables ) {
+ for ( map { $_->get_fields } $schema->get_tables ) {
my %extra = $_->extra;
$extra{label} ||= ucfirst($_->name);
=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