my $self = ref $_[0] ? shift : undef;
my($arg1,$arg2,$arg3)=@_;