debian man page for sql::translator::filter::defaultextra

SQL::Translator::Filter::DefaultExtra(3pm)		User Contributed Perl Documentation		SQL::Translator::Filter::DefaultExtra(3pm)

NAME
       SQL::Translator::Filter::DefaultExtra - Set default extra data values for schema objects.

SYNOPSIS
	 use SQL::Translator;

	 my $sqlt = SQL::Translator->new(
	     from => 'MySQL',
	     to   => 'MySQL',
	     filters => [
	       DefaultExtra => {
		   # XXX - These should really be ordered

		   # Default widget for fields to basic text edit.
		   'field.widget' => 'text',
		   # idea:
		   'field(data_type=BIT).widget' => 'yesno',

		   # 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;

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!

SEE ALSO
       perl(1), SQL::Translator

BUGS
TODO
AUTHOR
perl v5.14.2							    2012-01-18				SQL::Translator::Filter::DefaultExtra(3pm)