App-LJ

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Test::CPAN::Meta" : "0",
            "Test::MinimumVersion::Fast" : "0.04",
            "Test::PAUSE::Permissions" : "0.04",
            "Test::Pod" : "1.41",
            "Test::Spellunker" : "v0.2.7"
         }
      },
      "runtime" : {
         "requires" : {
            "JSON::Color" : "0",
            "JSON::XS" : "0",
            "perl" : "5.008001"
         }
      },
      "test" : {
         "requires" : {
            "Test::More" : "0.98"
         }
      }
   },
   "provides" : {

META.yml  view on Meta::CPAN

    - eg
    - examples
    - author
    - builder
provides:
  App::LJ:
    file: lib/App/LJ.pm
    version: '0.02'
requires:
  JSON::Color: '0'
  JSON::XS: '0'
  perl: '5.008001'
resources:
  bugtracker: https://github.com/Songmu/App-LJ/issues
  homepage: https://github.com/Songmu/App-LJ
  repository: git://github.com/Songmu/App-LJ.git
version: '0.02'
x_authority: cpan:SONGMU

cpanfile  view on Meta::CPAN

requires 'JSON::XS';
requires 'JSON::Color';
requires 'perl', '5.008001';

on configure => sub {
    requires 'Module::Build::Tiny', '0.035';
};

on develop => sub {
    requires 'App::FatPacker::Simple';
};

lib/App/LJ.pm  view on Meta::CPAN

package App::LJ;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.02";

use JSON::XS ();
use JSON::Color ();

my $_coder;
sub _coder {
    $_coder ||= JSON::XS->new->pretty(1);
}

sub new_with_options {
    my ($class, @argv) = @_;

    my ($opt) = $class->parse_options(@argv);
    $class->new($opt);
}

sub parse_options {