view release on metacpan or  search on metacpan

lib/App/DBBrowser/Options.pm  view on Meta::CPAN

                    if ( $sub_group_old_idx == $sub_group_idx && ! $ENV{TC_RESET_AUTO_UP} ) {
                        $sub_group_old_idx = 0;
                        next OPTION;
                    }
                    $sub_group_old_idx = $sub_group_idx;
                }
                $section = $sub_groups->[$sub_group_idx-@pre]{section};
                $sub_group = $sub_groups->[$sub_group_idx-@pre]{name};
            }
            if ( $group eq 'group_connect' ) {
                $op_mn->group_connect( $info, $lo, $section, $sub_group, $driver );
            }
            elsif ( $group eq 'group_extensions' ) {
                $op_mn->group_extensions( $info, $lo, $section, $sub_group );
            }
            elsif ( $group eq 'group_sql_settings' ) {
                $op_mn->group_sql_settings( $info, $lo, $section, $sub_group, $driver );
            }
            elsif ( $group eq 'group_create_table' ) {
                $op_mn->group_create_table( $info, $lo, $section, $sub_group );
            }
            elsif ( $group eq 'group_output' ) {
                $op_mn->group_output( $info, $lo, $section, $sub_group );
            }
            elsif ( $group eq 'group_import' ) {
                $op_mn->group_import( $info, $lo, $section, $sub_group );
            }
            elsif ( $group eq 'group_export' ) {
                $op_mn->group_export( $info, $lo, $section, $sub_group );
            }
            elsif ( $group eq 'group_misc' ) {
                $op_mn->group_misc( $info, $lo, $section, $sub_group, $driver );
            }
            elsif ( $group eq 'group_global' ) {
                $op_mn->group_global( $info, $lo, $section, $sub_group );
            }
            elsif ( $group eq 'group_select_plugins' ) {
                $op_mn->group_select_plugins( $info, $lo, $section, $sub_group );
            }
            else {
                die "Unknown group $group";
            }
            if ( @$sub_groups == 1 ) {
                if ( @$groups == 1 ) {
                    $op_rw->write_config_file( $lo, $driver, $plugin, $db );
                    return;
                }
                else {
                    next GROUP;
                }
            }
        }
    }
}


sub __display_info {
    my ( $sf ) = @_;
    my $tc = Term::Choose->new( $sf->{i}{tc_default} );
    my $app_dir = $sf->{i}{app_dir};
    eval { $app_dir = decode( 'locale', $app_dir ) };
    my $info = 'db-browser'  . "\n\n";
    $info .= 'Version: ' . $main::VERSION . "\n\n";
    $info .= 'Path: ' . catfile( $RealBin, $RealScript ) . "\n\n";
    $info .= 'App-Dir: ' . $app_dir . "\n";
    $tc->choose( [ ' << ' ], { prompt => $info, color => 1, margin => [ 1, 1, 1, 1 ] } );
}





1;


__END__