package XAO::DO::Web::MyAction;
use strict;
use XAO::Utils;
use XAO::Objects;
use base XAO::Objects->load(objname => 'Web::Action');
sub check_mode ($%) {
my $self=shift;
my $args=get_args(\@_);
my $mode=$args->{mode} || 'foo';
if($mode eq 'foo') {
$self->textout('Got FOO');
}
else {
$self->SUPER::check_mode($args);
}
}
1;