Is there a way to encode object constructors with the JSON Perl Module?

All,

I'm using the JSON Perl module to encode JSON.

I'd like the resulting JSON to include lines like this:

{
   "startDate": new Date(2010,11,15,0,0),
   "aString"  : "String Data",
   "aNumber"  : 1234
}

In order to create that, I have a Perl HASHREF like this:

{
   startDate => SEE BELOW,
   aString   => "String Data",
   aNumber   => 1234,
}

Here's my problem: I can't figure out how to coerce the JSON module into printing unquoted strings, so that I can include my new Date(...) instantiation call. I've tried creating a Perl module with a TO_JSON method, but the output still gets quoted.

Does anybody out there have any suggestions on 开发者_Go百科how I can encourage JSON to print unquoted strings?

---

JSON is not meant to encode objects like that. It encodes simple data structures like arrays and hashes. If you then want to use that deserialized data to populate a blessed object, you need to add another layer on top.

For Moose objects, the plugin MooseX::Storage is built for expressly this purpose.

---

What you want is invalid in JSON. See http://www.json.org/ for what is an valid value in JSON. I'd return the date as an array and then use that in you js handler to create the Date object.

---

Perhaps you should rethink your approach to this problem, say, by leaving the JSON module alone but post-processing its output? For example, come up with some convention to show that the receiver should do something special with the input:

{
   "startDate": "EVAL:new Date(2010,11,15,0,0)",
   "aString"  : "String Data",
   "aNumber"  : 1234
}

Let the receiver (Perl? JavaScript?) look for hash values that start with the keyword "EVAL:" and perform further processing on that value.