I changed my code so the variables aren't references;

sub EventList {
   my ($class, %arg) = @_;
   # load of code here
   return ([EMAIL PROTECTED], $startdate, $enddate);
}

And then called it like so:

    my @tempres = $event->EventList(skip=>0, max=>10);
    my $EventList = @tempres[0];
    my @EventList = @{$EventList};
    
    my $startdate = @tempres[1];
    my $enddate = @tempres[2];

Angie

>>I have an package called "Event"
>>
>>in it I have a subroutine called EventList
>>
>>I want to return an array and 2 scalars.
>>
>>sub EventList {
>>    my ($class, %arg) = @_;
>>    # load of code here
>>    return ([EMAIL PROTECTED], \$startdate, \$enddate);
>>}
>>
>>So far so good (I think)
>>
>>but I don't seem to be able to access it. I've tried all sorts:
>>
>>my $event = Event->new;
>>my @tempres = $event->EventList(skip=>0, max=>10);
>>my $startdate = $tempres[2];
>>my $enddate = $tempres[3];
>>
>>

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to