package SQL::Translator::Filter::Names;
# -------------------------------------------------------------------
-# $Id: Names.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;
# The name munging functions
-#=============================================================================
-# Get called with name to munge as first arg and return the new name. Die on
-# errors.
+# -------------------------------------------------------------------------
+# Get called with name to munge as first arg and return the new name. Die
+# on errors.
sub lc { lc shift; }
sub uc { uc shift; }
sub ucfirst { ucfirst shift; }
-1; #==========================================================================
+1;
+
+# -------------------------------------------------------------------------
__END__
L<perl(1)>, L<SQL::Translator>
-=head1 BUGS
-
=head1 TODO
=over 4
=head1 AUTHOR
+Unknown.
+
=cut