view release on metacpan or  search on metacpan

lib/App/Cme/Common.pm  view on Meta::CPAN

    &MainLoop;    # Tk's

    return;
}

sub run_shell_ui ($self, $term_class, $inst) {
    my $shell_ui = $term_class->new (
        root   => $inst->config_root,
        title  => $inst->application . ' configuration',
        prompt => ' >',
    );

    # engage in user interaction
    $shell_ui->run_loop;

    return;
}

sub get_documentation {
    my ($self) = @_;