my ($class,$d) = @_;