my ($class,$d) = shift;