App-Cmd

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "perl" : "5.020",
            "strict" : "0",
            "warnings" : "0"
         }
      },
      "test" : {
         "recommends" : {
            "CPAN::Meta" : "2.120900"
         },
         "requires" : {
            "Data::Dumper" : "0",
            "ExtUtils::MakeMaker" : "0",
            "File::Spec" : "0",
            "IPC::Cmd" : "0",
            "Test::Fatal" : "0",
            "Test::More" : "0.96",
            "lib" : "0"
         }
      }
   },
   "release_status" : "stable",

META.yml  view on Meta::CPAN

---
abstract: 'write command line apps with less suffering'
author:
  - 'Ricardo Signes <cpan@semiotic.systems>'
build_requires:
  Data::Dumper: '0'
  ExtUtils::MakeMaker: '0'
  File::Spec: '0'
  IPC::Cmd: '0'
  Test::Fatal: '0'
  Test::More: '0.96'
  lib: '0'
configure_requires:
  ExtUtils::MakeMaker: '6.78'
dynamic_config: 0
generated_by: 'Dist::Zilla version 6.032, CPAN::Meta::Converter version 2.150010'

Makefile.PL  view on Meta::CPAN

    "Sub::Exporter::Util" => 0,
    "Sub::Install" => 0,
    "Text::Abbrev" => 0,
    "constant" => 0,
    "experimental" => 0,
    "parent" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "TEST_REQUIRES" => {
    "Data::Dumper" => 0,
    "ExtUtils::MakeMaker" => 0,
    "File::Spec" => 0,
    "IPC::Cmd" => 0,
    "Test::Fatal" => 0,
    "Test::More" => "0.96",
    "lib" => 0
  },
  "VERSION" => "0.337",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "Capture::Tiny" => "0.13",
  "Carp" => 0,
  "Class::Load" => "0.06",
  "Data::Dumper" => 0,
  "Data::OptList" => 0,
  "ExtUtils::MakeMaker" => 0,
  "File::Basename" => 0,
  "File::Spec" => 0,
  "Getopt::Long" => "2.39",
  "Getopt::Long::Descriptive" => "0.116",
  "IO::TieCombine" => 0,
  "IPC::Cmd" => 0,
  "Module::Pluggable::Object" => 0,
  "Pod::Usage" => "1.61",

t/00-report-prereqs.dd  view on Meta::CPAN

                                      'perl' => '5.020',
                                      'strict' => '0',
                                      'warnings' => '0'
                                    }
                    },
       'test' => {
                   'recommends' => {
                                     'CPAN::Meta' => '2.120900'
                                   },
                   'requires' => {
                                   'Data::Dumper' => '0',
                                   'ExtUtils::MakeMaker' => '0',
                                   'File::Spec' => '0',
                                   'IPC::Cmd' => '0',
                                   'Test::Fatal' => '0',
                                   'Test::More' => '0.96',
                                   'lib' => '0'
                                 }
                 }
     };
  $x;

t/lib/Test/MySimple.pm  view on Meta::CPAN

package Test::MySimple;
use strict;
use warnings;
use parent 'App::Cmd::Simple';

our $VERSION = '0.123';

use Data::Dumper;

sub execute {
  my ($self, $opt, $args) = @_;

  local $Data::Dumper::Terse = 1;
  print Dumper([ $opt, $args ]);
}

sub validate_args {
  my ($self, $opt, $args) = @_;
  $self->usage_error("not enough args") unless @$args > 0;
}

sub opt_spec {
  return [ "fooble|f", "check all foobs for foobling" ],