my $self=shift;
my ($foo, $bar, $baz)=@_;