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

BUGS

TODO
AUTHOR
42perl v5.12.0                      2009-S0Q8L-:1:8Translator::Filter::DefaultExtra(3)



        

    


            
        

        

            Impressum