use base qw(Apache::MVC Maypole::Authentication::Abstract);

sub authenticate {
    my $r = shift;
    if ( $r->{table} eq 'openforall' ) {
        $r->public;
    }
    elsif ( $r->{table} eq 'membersonly' ) {
        $r->private;
        $r->{template} = 'login' unless $r->{user};
    }
    elsif ( $r->{table} eq 'topsecret' ) {
        $r->restricted;
        $r->{template} = 'login' unless $r->{user};
    }
}