35 lines
563 B
Perl
35 lines
563 B
Perl
package WebGUI::User::SpecialState;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Carp;
|
|
|
|
use base 'WebGUI::User';
|
|
|
|
sub create {
|
|
my $class = shift;
|
|
my $session = shift;
|
|
|
|
my $self = $class->SUPER::create( $session, @_ );
|
|
|
|
return $self->new( $session, $self->getId );
|
|
}
|
|
|
|
sub addSpecialState {
|
|
my $self = shift;
|
|
my $state = shift || croak 'state is required';
|
|
my $id = shift;
|
|
|
|
return;
|
|
}
|
|
|
|
sub removeSpecialState {
|
|
my $self = shift;
|
|
my $state = shift || croak 'state is required';
|
|
my $id = shift;
|
|
|
|
return;
|
|
}
|
|
|
|
1;
|
|
|