Add an unapply method to metamapper for nice extraction

private object unapplyMemo extends RequestMemoize[Any, Box[User]]

def unapply(in: Any): Option[User] = unapplyMemo(in, find(in)) match {
case Full(x) => Some(x)
case _ => Empty
}