X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FFilter%2FDefaultExtra.pm;h=eed01c5edaa90d862cac16e68506d8268f59a215;hb=f769b7e83b290b2500a1860d35527ff41df64d99;hp=74c7ae8f9c410de977a4915af3c3a30108316056;hpb=935800450f88b0500c4fa7c3b174cd22b5f9eb56;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Filter/DefaultExtra.pm b/lib/SQL/Translator/Filter/DefaultExtra.pm index 74c7ae8..eed01c5 100644 --- a/lib/SQL/Translator/Filter/DefaultExtra.pm +++ b/lib/SQL/Translator/Filter/DefaultExtra.pm @@ -15,7 +15,7 @@ objects. filters => [ DefaultExtra => { # XXX - These should really be ordered - + # Default widget for fields to basic text edit. 'field.widget' => 'text', # idea: @@ -24,7 +24,7 @@ objects. # Default label (human formated name) for fields and tables 'field.label' => '=ucfirst($name)', 'table.label' => '=ucfirst($name)', - }, + }, ], ) || die "SQLFairy error : ".SQL::Translator->error; my $sql = $sqlt->translate || die "SQLFairy error : ".$sqlt->error; @@ -32,8 +32,8 @@ objects. =cut use strict; -use vars qw/$VERSION/; -$VERSION = '1.59'; +use warnings; +our $VERSION = '1.62'; sub filter { my $schema = shift; @@ -67,12 +67,6 @@ if you want to set lots of things, use lots of filters! =head1 SEE ALSO -L, L - -=head1 BUGS - -=head1 TODO - -=head1 AUTHOR +C, L =cut