1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
#!/usr/bin/env perl
# -- XMLRPC::Lite -- services.soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
use XMLRPC::Transport::HTTP;
XMLRPC::Transport::HTTP::CGI
-> dispatch_to('validator1')
-> handle
;
package validator1;
sub whichToolkit { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
return +{
toolkitDocsUrl => 'http://www.soaplite.com/',
toolkitName => 'XMLRPC::Lite',
toolkitVersion => XMLRPC::Lite->VERSION,
toolkitOperatingSystem => $^O,
}
}
sub countTheEntities { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
my $string = shift;
my $res;
$res->{ctLeftAngleBrackets} = ($string =~ s/<//g) || 0;
$res->{ctRightAngleBrackets} = ($string =~ s/>//g) || 0;
$res->{ctAmpersands} = ($string =~ s/&//g) || 0;
$res->{ctApostrophes} = ($string =~ s/'//g) || 0;
$res->{ctQuotes} = ($string =~ s/"//g) || 0;
return $res;
}
sub arrayOfStructsTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
my $array = shift;
my $curly_sum = 0;
for my $struct (@$array) {
$curly_sum += $struct->{'curly'};
}
return $curly_sum;
}
sub easyStructTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
my $struct = shift;
return $struct->{'moe'} + $struct->{'larry'} + $struct->{'curly'};
}
sub echoStructTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
return shift;
}
sub manyTypesTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
return [@_];
}
sub moderateSizeArrayCheck { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
my $array = shift;
return join('', $array->[0], $array->[-1]);
}
sub nestedStructTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
my $calendar = shift;
my $april_1_2000 = $calendar->{'2000'}{'04'}{'01'};
return ($april_1_2000->{moe} + $april_1_2000->{larry}
+ $april_1_2000->{curly});
}
sub simpleStructReturnTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
my $number = shift;
return +{
times10 => $number * 10,
times100 => $number * 100,
times1000 => $number * 1000
};
}
|
