Help for this page

Select Code to Download


  1. or download this
    package Local::MooseJson;
    
    ...
    __PACKAGE__->meta->make_immutable;
    
    1;
    
  2. or download this
    #!/usr/bin/env perl
    
    ...
    my $mj = Local::MooseJson::->new($rest_json);
    
    print 'Username: ', $mj->icon()->{username}, "\n";
    
  3. or download this
    ken@titan ~/tmp/pm_11146255_moose_json/bin
    $ ./moose_json.pl
    ...
    IGNORED! Unknown JSON property: 'body_html'
    IGNORED! Unknown JSON property: 'datetime'
    Username: nataraj
    
  4. or download this
    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