package Wholesale; use Wholesale::Addon; # other methods ommitted for brevity =begin WSDL _DOC doc for method. _IN username $string doc for param. _RETURN @Wholesale::Addon doc for returnval. =end WSDL =cut sub list_attached_addons { # process arguments my $self = shift; my ($username) = @_; my @addons; # # construct a list of Wholesale::Addon objects # here using Wholesale::Addon->new(...) passing # data retrieved from the database. # return @addons; } 1;