Select Code to Download

   { 
      "body_raw" : "This is <b>Entry 1</b>",
...
      "subject_raw" : "Entry 1",
      "body_html" : "This is <b>Entry 1</b>"
   }

package Moose::MyCoolRestObject;

...
has_json_datetime datetime => ();
has_json_int id => ();
has_json_object icon => ("Moose::MyCoolRestObject::Icon");

  my $obj = Moose::MyCoolRestObject->new($json);
  print $obj->icon->username;