我有perl Moose课程。我能够从JSON数据（JSON-＆gt; new-＆gt; convert_blessed-＆gt; utf8-＆gt; pretty-＆gt; encode（$ mooseObj）;）生成每个类的Moose对象，并且还从Moose对象生成JSON文档（祝福（JSON-＆gt; new-＆gt; decode（$ json），＆＃39; CLASS_NAME＆＃39;）;）。
但是，我无法找到从Moose类生成JSON模式的方法。我需要为每个Moose类使用此模式，以便浏览器客户端验证发送到服务器端的JSON数据。目前，我的方法是手工编写JSON模式，但它有很多缺点（每次Moose类更改，JSON模式需要更新;手动错误;耗时;有点难以嵌套类;无法映射枚举类型;等等）。我看到有关从Java类，C＃类，XSD，Objective C类等生成JSON模式的帖子，但不是来自perl或Moose类。有关这方面的任何信息表示赞赏。