| … | |
… | |
| 9 | =cut |
9 | =cut |
| 10 | sub new { |
10 | sub new { |
| 11 | my $self = shift; |
11 | my $self = shift; |
| 12 | my $data = shift; |
12 | my $data = shift; |
| 13 | $self = {}; |
13 | $self = {}; |
| 14 | $self->{set_id} = $data->set_id; |
14 | $self->{set_id} = SOAP::Data->type( 'string', $data->set_id ); |
| 15 | $self->{problem_id} = $data->problem_id; |
15 | $self->{problem_id} = SOAP::Data->type( 'string', $data->problem_id ); |
| 16 | $self->{source_file} = $data->source_file; |
16 | $self->{source_file} = SOAP::Data->type( 'string', $data->source_file ); |
| 17 | $self->{value} = $data->value; |
17 | $self->{value} = SOAP::Data->type( 'string', $data->value ); |
| 18 | $self->{max_attempts} = $data->max_attempts; |
18 | $self->{max_attempts} = SOAP::Data->type( 'string', $data->max_attempts ); |
| 19 | bless $self; |
19 | bless $self; |
| 20 | return $self; |
20 | return $self; |
| 21 | } |
21 | } |
| 22 | |
22 | |
| 23 | 1; |
23 | 1; |
Parent Directory
| 
Revision Log
| 
Patch