Added Parson module to parse json.

[maemian] / Parson.pm

diff --git a/Parson.pm b/Parson.pm
new file mode 100755 (executable)
index 0000000..a588f48
--- /dev/null
+++ b/Parson.pm
@@ -0,0 +1,52 @@
+package Parson;
+
+# Copyright (C) Jeremiah C. Foster 2009
+
+=head1 NAME
+
+parson.pl - parse json
+
+=head1 VERSION
+
+This document describes version 0.1
+
+=head1 PURPOSE
+
+Create something readable from a json file
+
+=head1 SYNOPSIS
+
+=cut
+
+use Moose;
+
+has 'file' => ( isa => 'Str', is => 'rw', default => '/home/jeremiah/maemian/json.txt' );
+
+__PACKAGE__->meta->make_immutable;
+
+sub parse_json {
+  use JSON;
+  use Perl6::Slurp;
+  use File::Basename;
+  my ($self, $location) = @_;
+  my @json = slurp $self->file;
+  my $text = decode_json $json[0];
+
+  while( my ($k, $v) = each %$text ) {
+    if (ref($v) eq "ARRAY") {
+      if ($k eq 'targets') {
+       # print map { "ARRAY key: $k, value: @$_\n"  } @$v;
+      }
+      elsif ($k eq "fnames") {
+       my $dsc = "@$v";
+       return basename $dsc;
+      }
+      else {
+       # print "ARRAY key: $k, value: @$v.\n";
+      }
+    }
+  }
+}
+
+
+1;