Select Code to Download

if (defined($q->param())) {
    if ($q->param('action') eq 'add') {
...
} else {
    &action_dialog();
}

sub get_branch_function {
    my $query = shift;
...
        return $dispatch{ $action }{ confirm }{ commit };
    }
}

        my %dispatch = (
                add => {
...
                        },
                        default => \&choose_dialog,
                },

                modify => {
                        update => {
...
                        },
                        default => \&choose_dialog,
                },

                default => \&action_dialog
        );

sub dispatch_table {
        my $q = shift;
...
                },
                default => \&action_dialog
        );

        if (! exists $dispatch{$action}) {
                return $dispatch{default}
...
                return $dispatch{$action}{confirm}{commit};
        }
}