}
sub get_user {
- my ($self) = @_;
+ my ($self, $noerr) = @_;
- die "user name not set\n" if !$self->{user};
+ return $self->{user} if defined($self->{user}) || $noerr;
- return $self->{user};
+ die "user name not set\n";
}
sub is_worker {
sub init_request {
my ($self, %params) = @_;
- # implement in subclass
+ $self->{result_attributes} = {}
+
+ # if you nedd more, implement in subclass
}
1;