#!/usr/bin/perl

use strict;
use warnings;
use base qw(CGI::Application);

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

    $self->start_mode( 'seite1' );
    $self->mode_param( 'rm' );
    $self->run_modes(
        AUTOLOAD => \&seite1,
        seite1 => \&seite1,
        seite3 => \&seite3,
        seite4 => \&seite4,
    );
}

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

    my $tmpl = $self->load_tmpl( 'template.tmpl' );
    $tmpl->param( SEITE => 'Seite 1' );
    return $tmpl->output;
}

sub seite3{
    my ($self) = @_;
    my $tmpl = $self->load_tmpl( 'template.tmpl' );
    $tmpl->param( SEITE => 'Seite 1' );
    return $tmpl->output;
}

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

    my $tmpl = $self->load_tmpl( 'template.tmpl' );
    $tmpl->param( SEITE => 'Seite 4' );
    return $tmpl->output;
}