NAME

XAO::DO::Web::Action - base for mode-dependant displayable objects

SYNOPSIS

package XAO::DO::Web::Fubar;
use strict;
use XAO::Objects;
use XAO::Errors qw(XAO::DO::Web::Fubar);
use base XAO::Objects->load(objname => 'Web::Action');

sub check_mode ($$) {
    my $self=shift;
    my $args=get_args(\@_);
    my $mode=$args->{mode};
    if($mode eq "foo") {
        $self->foo($args);
    }
    elsif($mode eq "kick") {
        $self->kick($args);
    }
    else {
        throw XAO::E::DO::Web::Fubar "check_mode - unknown mode '$mode'";
    }
}

DESCRIPTION

Very simple object with overridable check_mode method. Simplifies implementation of objects with arguments like:

<%Fubar mode="kick" target="ass"%>

EXPORTS

Nothing.

AUTHOR

Copyright (c) 2000-2001 XAO Inc.

Andrew Maltsev <am@xao.com>.

SEE ALSO

Recommended reading: XAO::Web, XAO::DO::Web::Page.