sub foo {
	my ($self,$date,$message,$opt_args) = @_;
	.....
	return $sucess;
}