package SQL::Translator::Schema::Field;
# ----------------------------------------------------------------------
-# $Id$
-# ----------------------------------------------------------------------
# Copyright (C) 2002-2009 SQLFairy Authors
#
# This program is free software; you can redistribute it and/or
use vars qw($VERSION $TABLE_COUNT $VIEW_COUNT);
-$VERSION = '1.99';
+$VERSION = '1.59';
# Stringify to our name, being careful not to pass any args through so we don't
# accidentally set it to undef. We also have to tweak bool so the object is
=cut
- my ( $self, $arg ) = @_;
- $self->{'default_value'} = $arg if defined $arg;
+ my $self = shift;
+ $self->{'default_value'} = shift if @_;
return $self->{'default_value'};
}
=head1 AUTHOR
-Ken Y. Clark E<lt>kclark@cpan.orgE<gt>.
+Ken Youens-Clark E<lt>kclark@cpan.orgE<gt>.
=cut