Accessing elements via optics in a Map[String, Any]

Optics.scala

package maps

import monocle._
import monocle.std.map._
import monocle.function.all._

import scala.reflect.ClassTag

object Test extends App {

  def get[A](key: String) = at[Map[String, Any], String, Option[Any]](key)

  def as[A](implicit CT: ClassTag[A]) =
    Optional[Option[Any], A] {
      case Some(x : A) => Some(x)
    } { x => _ => Some(x) }

  private val name = get("name") ^|-? as[String]
  private val age = get("age") ^|-? as[Int]


  val f1 = name.set("Mark")
  val f2 = age.set(2)

  println(as[Int].set(2).apply(None))

  val composed = f1 andThen f2

  val map = composed(Map.empty)

  println(map)
  println(name.getOption(map))
  println(age.getOption(map))
}