App-PS1

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use Module::Build;

my $builder = Module::Build->new(
    module_name       => 'App::PS1',
    license           => 'perl',
    dist_author       => 'Ivan Wills <ivan.wills@gmail.com>',
    dist_version_from => 'lib/App/PS1.pm',
    requires          => {
        'perl'                  => 5.014,
        'Class::Accessor::Fast' => 0,
        'JSON::XS'              => 0,
        'Path::Tiny'            => 0,
        'version'               => 0,
    },
    configure_requires => {
        'Module::Build' => 0.38,
    },
    build_requires => {
        'Test::More'     => '0.88',
        'Test::Warnings' => '0.026',
    },

META.json  view on Meta::CPAN

      "runtime" : {
         "recommends" : {
            "Term::Colour256" : "0",
            "Term::Size::Any" : "0",
            "Test::Kwalitee" : "0",
            "Test::Perl::Critic" : "0",
            "Test::Spelling" : "0"
         },
         "requires" : {
            "Class::Accessor::Fast" : "0",
            "JSON::XS" : "0",
            "Path::Tiny" : "0",
            "perl" : "5.014",
            "version" : "0"
         }
      }
   },
   "provides" : {
      "App::PS1" : {
         "file" : "lib/App/PS1.pm",
         "version" : "0.08"

META.yml  view on Meta::CPAN

    file: lib/App/PS1/Plugin/Uptime.pm
    version: '0.08'
recommends:
  Term::Colour256: '0'
  Term::Size::Any: '0'
  Test::Kwalitee: '0'
  Test::Perl::Critic: '0'
  Test::Spelling: '0'
requires:
  Class::Accessor::Fast: '0'
  JSON::XS: '0'
  Path::Tiny: '0'
  perl: '5.014'
  version: '0'
resources:
  bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=App-PS1
  license: http://dev.perl.org/licenses/
  repository: http://github.com/ivanwills/App-PS1
version: '0.08'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

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

    }

    return $out;
}

sub parse_options {
    my ($self, $options_txt, $name) = @_;

    return {} if !$options_txt;

    require JSON::XS;

    my $options = eval { JSON::XS::decode_json($options_txt) };
    my $error   = $@;

    if ($error && $self->verbose) {
        cluck "Error reading $name\'s options ($options_txt)! $error\n";
    }

    return $options || {};
}

sub parts_size {