Select Code to Download

package Local::MooseJson;

...
__PACKAGE__->meta->make_immutable;

1;

#!/usr/bin/env perl

...
my $mj = Local::MooseJson::->new($rest_json);

print 'Username: ', $mj->icon()->{username}, "\n";

ken@titan ~/tmp/pm_11146255_moose_json/bin
$ ./moose_json.pl
...
IGNORED! Unknown JSON property: 'body_html'
IGNORED! Unknown JSON property: 'datetime'
Username: nataraj

ken@titan ~/tmp
$ ls -lR pm_11146255_moose_json
...
pm_11146255_moose_json/lib/Local:
total 4
-rw-r--r-- 1 ken None 788 Aug 21 07:40 MooseJson.pm