1SQL::Translator::FilterU:s:eDrefCaounlttrEixbturtae(d3S)PQeLr:l:TDroacnusmleanttoart:i:oFnilter::DefaultExtra(3)
2
3
4

NAME

6       SQL::Translator::Filter::DefaultExtra - Set default extra data values
7       for schema objects.
8

SYNOPSIS

10         use SQL::Translator;
11
12         my $sqlt = SQL::Translator->new(
13             from => 'MySQL',
14             to   => 'MySQL',
15             filters => [
16               DefaultExtra => {
17                   # XXX - These should really be ordered
18
19                   # Default widget for fields to basic text edit.
20                   'field.widget' => 'text',
21                   # idea:
22                   'field(data_type=BIT).widget' => 'yesno',
23
24                   # Default label (human formated name) for fields and tables
25                   'field.label'  => '=ucfirst($name)',
26                   'table.label'  => '=ucfirst($name)',
27               },
28             ],
29         ) || die "SQLFairy error : ".SQL::Translator->error;
30         my $sql = $sqlt->translate || die "SQLFairy error : ".$sqlt->error;
31

DESCRIPTION

33       Maybe I'm trying to do too much in one go. Args set a match and then an
34       update, if you want to set lots of things, use lots of filters!
35

SEE ALSO

37       perl(1), SQL::Translator
38
39
40
41perl v5.34.1                      2022-S0Q5L-:1:0Translator::Filter::DefaultExtra(3)
Impressum