Browse files

added AsIf::JSON

  • Loading branch information...
sirrobert committed Aug 23, 2012
1 parent 54be303 commit c0d40f38ddabc64926aa47fafeed3ac8afed81ab
Showing with 413 additions and 2 deletions.
  1. +201 −0 LICENSE
  2. +8 −0
  3. +84 −2
  4. +57 −0 lib/Masquerade/AsIf/JSON.pm6
  5. +63 −0 t/asif-json/render.t
@@ -0,0 +1,201 @@
+ The Artistic License 2.0
+ Copyright (c) 2000-2006, The Perl Foundation.
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+This license establishes the terms under which a given free software
+Package may be copied, modified, distributed, and/or redistributed.
+The intent is that the Copyright Holder maintains some artistic
+control over the development of that Package while still keeping the
+Package available as open source and free software.
+You are always permitted to make arrangements wholly outside of this
+license directly with the Copyright Holder of a given Package. If the
+terms of this license do not permit the full use that you propose to
+make of the Package, you should contact the Copyright Holder and seek
+a different licensing arrangement.
+ "Copyright Holder" means the individual(s) or organization(s)
+ named in the copyright notice for the entire Package.
+ "Contributor" means any party that has contributed code or other
+ material to the Package, in accordance with the Copyright Holder's
+ procedures.
+ "You" and "your" means any person who would like to copy,
+ distribute, or modify the Package.
+ "Package" means the collection of files distributed by the
+ Copyright Holder, and derivatives of that collection and/or of
+ those files. A given Package may consist of either the Standard
+ Version, or a Modified Version.
+ "Distribute" means providing a copy of the Package or making it
+ accessible to anyone else, or in the case of a company or
+ organization, to others outside of your company or organization.
+ "Distributor Fee" means any fee that you charge for Distributing
+ this Package or providing support for this Package to another
+ party. It does not mean licensing fees.
+ "Standard Version" refers to the Package if it has not been
+ modified, or has been modified only in ways explicitly requested
+ by the Copyright Holder.
+ "Modified Version" means the Package, if it has been changed, and
+ such changes were not explicitly requested by the Copyright
+ Holder.
+ "Original License" means this Artistic License as Distributed with
+ the Standard Version of the Package, in its current version or as
+ it may be modified by The Perl Foundation in the future.
+ "Source" form means the source code, documentation source, and
+ configuration files for the Package.
+ "Compiled" form means the compiled bytecode, object code, binary,
+ or any other form resulting from mechanical transformation or
+ translation of the Source form.
+Permission for Use and Modification Without Distribution
+(1) You are permitted to use the Standard Version and create and use
+Modified Versions for any purpose without restriction, provided that
+you do not Distribute the Modified Version.
+Permissions for Redistribution of the Standard Version
+(2) You may Distribute verbatim copies of the Source form of the
+Standard Version of this Package in any medium without restriction,
+either gratis or for a Distributor Fee, provided that you duplicate
+all of the original copyright notices and associated disclaimers. At
+your discretion, such verbatim copies may or may not include a
+Compiled form of the Package.
+(3) You may apply any bug fixes, portability changes, and other
+modifications made available from the Copyright Holder. The resulting
+Package will still be considered the Standard Version, and as such
+will be subject to the Original License.
+Distribution of Modified Versions of the Package as Source
+(4) You may Distribute your Modified Version as Source (either gratis
+or for a Distributor Fee, and with or without a Compiled form of the
+Modified Version) provided that you clearly document how it differs
+from the Standard Version, including, but not limited to, documenting
+any non-standard features, executables, or modules, and provided that
+you do at least ONE of the following:
+ (a) make the Modified Version available to the Copyright Holder
+ of the Standard Version, under the Original License, so that the
+ Copyright Holder may include your modifications in the Standard
+ Version.
+ (b) ensure that installation of your Modified Version does not
+ prevent the user installing or running the Standard Version. In
+ addition, the Modified Version must bear a name that is different
+ from the name of the Standard Version.
+ (c) allow anyone who receives a copy of the Modified Version to
+ make the Source form of the Modified Version available to others
+ under
+ (i) the Original License or
+ (ii) a license that permits the licensee to freely copy,
+ modify and redistribute the Modified Version using the same
+ licensing terms that apply to the copy that the licensee
+ received, and requires that the Source form of the Modified
+ Version, and of any works derived from it, be made freely
+ available in that license fees are prohibited but Distributor
+ Fees are allowed.
+Distribution of Compiled Forms of the Standard Version
+or Modified Versions without the Source
+(5) You may Distribute Compiled forms of the Standard Version without
+the Source, provided that you include complete instructions on how to
+get the Source of the Standard Version. Such instructions must be
+valid at the time of your distribution. If these instructions, at any
+time while you are carrying out such distribution, become invalid, you
+must provide new instructions on demand or cease further distribution.
+If you provide valid instructions or cease distribution within thirty
+days after you become aware that the instructions are invalid, then
+you do not forfeit any of your rights under this license.
+(6) You may Distribute a Modified Version in Compiled form without
+the Source, provided that you comply with Section 4 with respect to
+the Source of the Modified Version.
+Aggregating or Linking the Package
+(7) You may aggregate the Package (either the Standard Version or
+Modified Version) with other packages and Distribute the resulting
+aggregation provided that you do not charge a licensing fee for the
+Package. Distributor Fees are permitted, and licensing fees for other
+components in the aggregation are permitted. The terms of this license
+apply to the use and Distribution of the Standard or Modified Versions
+as included in the aggregation.
+(8) You are permitted to link Modified and Standard Versions with
+other works, to embed the Package in a larger work of your own, or to
+build stand-alone binary or bytecode versions of applications that
+include the Package, and Distribute the result without restriction,
+provided the result does not expose a direct interface to the Package.
+Items That are Not Considered Part of a Modified Version
+(9) Works (including, but not limited to, modules and scripts) that
+merely extend or make use of the Package, do not, by themselves, cause
+the Package to be a Modified Version. In addition, such works are not
+considered parts of the Package itself, and are not subject to the
+terms of this license.
+General Provisions
+(10) Any use, modification, and distribution of the Standard or
+Modified Versions is governed by this Artistic License. By using,
+modifying or distributing the Package, you accept this license. Do not
+use, modify, or distribute the Package, if you do not accept this
+(11) If your Modified Version has been derived from a Modified
+Version made by someone other than you, you are nevertheless required
+to ensure that your Modified Version complies with the requirements of
+this license.
+(12) This license does not grant you the right to use any trademark,
+service mark, tradename, or logo of the Copyright Holder.
+(13) This license includes the non-exclusive, worldwide,
+free-of-charge patent license to make, have made, use, offer to sell,
+sell, import and otherwise transfer the Package with respect to any
+patent claims licensable by the Copyright Holder that are necessarily
+infringed by the Package. If you institute patent litigation
+(including a cross-claim or counterclaim) against any party alleging
+that the Package constitutes direct or contributory patent
+infringement, then this Artistic License to you shall terminate on the
+date that such litigation is filed.
+(14) Disclaimer of Warranty:
@@ -0,0 +1,8 @@
+ "name" : "Masquerade",
+ "version" : "*",
+ "description" : "Let Perl 6 constructs masquerade as other things.",
+ "author" : "Sir Robert Burbridge",
+ "depends" : ["JSON::Tiny"],
+ "source-url" : "git://"
@@ -1,4 +1,86 @@
-Let's some stuff masquerade as other stuff
+Let Perl 6 constructs masquerade as other things.
+Sometimes you want to be able to use Perl 6 objects as if they were
+something else, such as JSON. Masquerade allows for quick, painless (but
+simple) re-renderings.
+Masquerade provides a set of roles. Each role allows objects to masquerade as if other objects. The roles do 'not' have the `Masquerade` prefix. For example, if you
+use Masquerade::AsIf::JSON;
+you will get a role called `AsIf::JSON` (rather than ~~`Masquerade::AsIf::JSON`~~).
+Sometimes you have objects you want to render differently.
+### "Primitives" (hashes, arrays, strings, etc.)
+Let's look at how we could use Masquerade to emit a json rendering of a hash containing an array.
+use Masquerade::AsIf::JSON;
+my %agenda = {
+ parties => 2,
+ meetings => 3,
+ color-choices => <red blue green>,
+say %agenda but AsIf::JSON;
+# output:
+# { "parties" : 2, "meetings" : 3, "color-choices" : [ "red", "blue", "green" ] }
+### Class-based objects
+That's well and good, but what about more complex stuff? The following example shows how to render a class instance as if it were JSON.
+use Masquerade::AsIf::JSON;
+# Try a more complex perl object.
+class Weather::Phenomenon {
+ has $!id;
+ has $.name;
+ has $.description;
+ has;
+ has @.affects;
+my $tornado =
+ id => 123,
+ name => 'tornado',
+ description => 'a twister!',
+ properties => {
+ twistiness => 100,
+ windiness => 88,
+ size => 40,
+ },
+ affects => <Houses Barns Couches Chickens>
+say $tornado but AsIf::JSON;
+# output (note that it won't actually be pretty-printed; that's just for illustrative purposes here).
+# {
+# "name" : "tornado",
+# "description" : "a twister!",
+# "properties" : {
+# "twistiness" : 100,
+# "windiness" : 88,
+# "size" : 40
+# },
+# "affects" : [ "Houses", "Barns", "Couches", "Chickens" ]
+# }
+Notice that the private property $!id is not rendered in the JSON. The JSON is considered to be a JSON rendering of the public interface to the object.
@@ -0,0 +1,57 @@
+# JSON::Tiny is used to render basic stuff like hashes.
+use JSON::Tiny;
+role AsIf::JSON;
+# For reasons I don't quite understand, this has to be separated out into
+# it's own sub right now. I'd probably really just fold it into Str.
+sub handled-elsewhere ($obj) {
+ try {
+ to-json($obj);
+ return True;
+ }
+ return False;
+ }
+# This helper sub renders class-based objects as JSON. Objects are treated
+# as hashes, public properties are rendered; private properties are omitted.
+# This could probably be improved to do things like let objects that inherit
+# from Arrays render as JavaScript arrays (or something). But it works fine
+# for my purposes for now.
+sub asif-json ($obj) {
+ # This hash will be rendered to JSON by JSON::Tiny. It's just simple
+ # storage.
+ my %json;
+ # Loop through the object's attributes. If the attribute is public,
+ # include it in the JSON. If it's private, ignore it.
+ for $obj.^attributes -> $attr {
+ if $attr.has-accessor {
+ %json{$} = $attr.get_value($obj);
+ }
+ }
+ return to-json(%json);
+# Render as string.
+method Str () {
+ if (handled-elsewhere(self)) {
+ return to-json(self);
+ } else {
+ return asif-json(self);
+ }
+# Outsource gist to Str.
+method gist () {
+ return self.Str();
Oops, something went wrong.

0 comments on commit c0d40f3

Please sign in to comment.