package API::Math; use base XMLMethod; sub export_procedures { my %subs = ( 'math.sum' => [\&API::Math::sum, 'int int int'] ); return \%subs; } sub sum{ my $x = shift; my $y = shift; return $y + $x; } 1;