git.maemo.org Git - maemian/blob - Parson.pm

   1 package Parson;
   2
   3 # Copyright (C) Jeremiah C. Foster 2009
   4
   5 =head1 NAME
   6
   7 parson.pl - parse json
   8
   9 =head1 VERSION
  10
  11 This document describes version 0.1
  12
  13 =head1 PURPOSE
  14
  15 Create something readable from a json file
  16
  17 =head1 SYNOPSIS
  18
  19 =cut
  20
  21 use Moose;
  22
  23 has 'file' => ( isa => 'Str', is => 'rw', default => '/home/jeremiah/maemian/json.txt' );
  24
  25 __PACKAGE__->meta->make_immutable;
  26
  27 sub parse_json {
  28   use JSON;
  29   use Perl6::Slurp;
  30   use File::Basename;
  31   my ($self, $location) = @_;
  32   my @json = slurp $self->file;
  33   my $text = decode_json $json[0];
  34
  35   while( my ($k, $v) = each %$text ) {
  36     if (ref($v) eq "ARRAY") {
  37       if ($k eq 'targets') {
  38         # print map { "ARRAY key: $k, value: @$_\n"  } @$v;
  39       }
  40       elsif ($k eq "fnames") {
  41         my $dsc = "@$v";
  42         return basename $dsc;
  43       }
  44       else {
  45         # print "ARRAY key: $k, value: @$v.\n";
  46       }
  47     }
  48   }
  49 }
  50
  51
  52 1;