package my_wsdl;

sub new {
    my $class = shift;
    my $self  = {
        _id               => shift,
        _client           => shift,
        _externalID       => shift,
        _externalParentId => shift,
        _provider         => shift,
        _action           => shift,
        _priority         => shift,
        _actionTime       => shift,
        _state            => shift,
        _result           => shift,
        _locked           => shift,
        _lockedTimes      => shift,
        _sid              => shift,
        _domain           => shift,
        _samAccountName   => shift,
    };

    bless $self, $class;
    return $self;
}

sub setID {
    my ( $self, $id ) = @_;
    $self->{_id} = $id if defined($id);
    return $self->{_id};