Hello community, here is the log from the commit of package perl-App-Cmd for openSUSE:Factory checked in at 2012-05-29 11:41:36 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-App-Cmd (Old) and /work/SRC/openSUSE:Factory/.perl-App-Cmd.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-App-Cmd", Maintainer is "" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-App-Cmd/perl-App-Cmd.changes 2012-04-02 10:51:35.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-App-Cmd.new/perl-App-Cmd.changes 2012-05-29 11:41:38.000000000 +0200 @@ -1,0 +2,7 @@ +Mon May 28 13:39:06 UTC 2012 - [email protected] + +- updated to 0.318 + App::Cmd::Tester treats undef code as 0 now (thanks, David Golden) + piles of documentation improvement also by David Golden + +------------------------------------------------------------------- Old: ---- App-Cmd-0.317.tar.gz New: ---- App-Cmd-0.318.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-App-Cmd.spec ++++++ --- /var/tmp/diff_new_pack.CHjARL/_old 2012-05-29 11:41:40.000000000 +0200 +++ /var/tmp/diff_new_pack.CHjARL/_new 2012-05-29 11:41:40.000000000 +0200 @@ -17,7 +17,7 @@ Name: perl-App-Cmd -Version: 0.317 +Version: 0.318 Release: 0 %define cpan_name App-Cmd Summary: Write command line apps with less suffering ++++++ App-Cmd-0.317.tar.gz -> App-Cmd-0.318.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/Changes new/App-Cmd-0.318/Changes --- old/App-Cmd-0.317/Changes 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/Changes 2012-05-05 04:00:43.000000000 +0200 @@ -1,5 +1,10 @@ Revision history for App-Cmd +0.318 2012-05-04 22:00:34 America/New_York + App::Cmd::Tester treats undef code as 0 now (thanks, David Golden) + + piles of documentation improvement also by David Golden + 0.317 2012-03-26 10:11:52 America/New_York App::Cmd::Tester now reports exit code 1 for unknown commands, as App::Cmd would exit(1) in that case; addresses diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/MANIFEST new/App-Cmd-0.318/MANIFEST --- old/App-Cmd-0.317/MANIFEST 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/MANIFEST 2012-05-05 04:00:43.000000000 +0200 @@ -47,9 +47,6 @@ t/lib/Test/WithSetup/Command/alfie.pm t/lib/Test/WithSetup/Command/bertie.pm t/lib/Test/XyzzyPlugin.pm -t/release-pod-coverage.t -t/release-pod-syntax.t -t/release-pod.t t/setup-broken.t t/setup-inner.t t/setup-nocmd.t @@ -57,3 +54,6 @@ t/simple-require.t t/simple-use.t t/subdispatch.t +xt/release/pod-coverage.t +xt/release/pod-syntax.t +xt/release/pod.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/META.json new/App-Cmd-0.318/META.json --- old/App-Cmd-0.317/META.json 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/META.json 2012-05-05 04:00:43.000000000 +0200 @@ -4,7 +4,7 @@ "Ricardo Signes <[email protected]>" ], "dynamic_config" : 0, - "generated_by" : "Dist::Zilla version 4.300010, CPAN::Meta::Converter version 2.120630", + "generated_by" : "Dist::Zilla version 4.300015, CPAN::Meta::Converter version 2.120921", "license" : [ "perl_5" ], @@ -60,123 +60,118 @@ "web" : "https://github.com/rjbs/app-cmd"; } }, - "version" : "0.317", + "version" : "0.318", "x_Dist_Zilla" : { "plugins" : [ { + "class" : "Dist::Zilla::Plugin::Git::GatherDir", + "name" : "@RJBS/Git::GatherDir", + "version" : "1.121010" + }, + { "class" : "Dist::Zilla::Plugin::CheckPrereqsIndexed", "name" : "@RJBS/CheckPrereqsIndexed", "version" : "0.007" }, { - "class" : "Dist::Zilla::Plugin::GatherDir", - "name" : "@RJBS/@Basic/GatherDir", - "version" : "4.300010" + "class" : "Dist::Zilla::Plugin::CheckExtraTests", + "name" : "@RJBS/CheckExtraTests", + "version" : "0.005" }, { "class" : "Dist::Zilla::Plugin::PruneCruft", - "name" : "@RJBS/@Basic/PruneCruft", - "version" : "4.300010" + "name" : "@RJBS/@Filter/PruneCruft", + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::ManifestSkip", - "name" : "@RJBS/@Basic/ManifestSkip", - "version" : "4.300010" + "name" : "@RJBS/@Filter/ManifestSkip", + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::MetaYAML", - "name" : "@RJBS/@Basic/MetaYAML", - "version" : "4.300010" + "name" : "@RJBS/@Filter/MetaYAML", + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::License", - "name" : "@RJBS/@Basic/License", - "version" : "4.300010" + "name" : "@RJBS/@Filter/License", + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::Readme", - "name" : "@RJBS/@Basic/Readme", - "version" : "4.300010" - }, - { - "class" : "Dist::Zilla::Plugin::ExtraTests", - "name" : "@RJBS/@Basic/ExtraTests", - "version" : "4.300010" + "name" : "@RJBS/@Filter/Readme", + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::ExecDir", - "name" : "@RJBS/@Basic/ExecDir", - "version" : "4.300010" + "name" : "@RJBS/@Filter/ExecDir", + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::ShareDir", - "name" : "@RJBS/@Basic/ShareDir", - "version" : "4.300010" + "name" : "@RJBS/@Filter/ShareDir", + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::MakeMaker", - "name" : "@RJBS/@Basic/MakeMaker", - "version" : "4.300010" + "name" : "@RJBS/@Filter/MakeMaker", + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::Manifest", - "name" : "@RJBS/@Basic/Manifest", - "version" : "4.300010" + "name" : "@RJBS/@Filter/Manifest", + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::TestRelease", - "name" : "@RJBS/@Basic/TestRelease", - "version" : "4.300010" + "name" : "@RJBS/@Filter/TestRelease", + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::ConfirmRelease", - "name" : "@RJBS/@Basic/ConfirmRelease", - "version" : "4.300010" + "name" : "@RJBS/@Filter/ConfirmRelease", + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::UploadToCPAN", - "name" : "@RJBS/@Basic/UploadToCPAN", - "version" : "4.300010" + "name" : "@RJBS/@Filter/UploadToCPAN", + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::AutoPrereqs", "name" : "@RJBS/AutoPrereqs", - "version" : "4.300010" + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::Git::NextVersion", "name" : "@RJBS/Git::NextVersion", - "version" : "1.120370" + "version" : "1.121010" }, { "class" : "Dist::Zilla::Plugin::PkgVersion", "name" : "@RJBS/PkgVersion", - "version" : "4.300010" + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::MetaConfig", "name" : "@RJBS/MetaConfig", - "version" : "4.300010" + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::MetaJSON", "name" : "@RJBS/MetaJSON", - "version" : "4.300010" + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::NextRelease", "name" : "@RJBS/NextRelease", - "version" : "4.300010" + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::PodSyntaxTests", "name" : "@RJBS/PodSyntaxTests", - "version" : "4.300010" - }, - { - "class" : "Dist::Zilla::Plugin::Repository", - "name" : "@RJBS/Repository", - "version" : "0.18" + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::Prereqs", @@ -187,7 +182,7 @@ } }, "name" : "@RJBS/TestMoreWithSubtests", - "version" : "4.300010" + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::PodWeaver", @@ -202,22 +197,22 @@ { "class" : "Dist::Zilla::Plugin::Git::Check", "name" : "@RJBS/@Git/Check", - "version" : "1.120370" + "version" : "1.121010" }, { "class" : "Dist::Zilla::Plugin::Git::Commit", "name" : "@RJBS/@Git/Commit", - "version" : "1.120370" + "version" : "1.121010" }, { "class" : "Dist::Zilla::Plugin::Git::Tag", "name" : "@RJBS/@Git/Tag", - "version" : "1.120370" + "version" : "1.121010" }, { "class" : "Dist::Zilla::Plugin::Git::Push", "name" : "@RJBS/@Git/Push", - "version" : "1.120370" + "version" : "1.121010" }, { "class" : "Dist::Zilla::Plugin::Prereqs", @@ -228,37 +223,37 @@ } }, "name" : "Prereqs", - "version" : "4.300010" + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : ":InstallModules", - "version" : "4.300010" + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : ":IncModules", - "version" : "4.300010" + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : ":TestFiles", - "version" : "4.300010" + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : ":ExecFiles", - "version" : "4.300010" + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : ":ShareFiles", - "version" : "4.300010" + "version" : "4.300015" }, { "class" : "Dist::Zilla::Plugin::FinderCode", "name" : ":MainModule", - "version" : "4.300010" + "version" : "4.300015" } ], "zilla" : { @@ -266,7 +261,7 @@ "config" : { "is_trial" : "0" }, - "version" : "4.300010" + "version" : "4.300015" } } } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/META.yml new/App-Cmd-0.318/META.yml --- old/App-Cmd-0.317/META.yml 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/META.yml 2012-05-05 04:00:43.000000000 +0200 @@ -11,7 +11,7 @@ configure_requires: ExtUtils::MakeMaker: 6.30 dynamic_config: 0 -generated_by: 'Dist::Zilla version 4.300010, CPAN::Meta::Converter version 2.120630' +generated_by: 'Dist::Zilla version 4.300015, CPAN::Meta::Converter version 2.120921' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -39,101 +39,97 @@ resources: homepage: https://github.com/rjbs/app-cmd repository: https://github.com/rjbs/app-cmd.git -version: 0.317 +version: 0.318 x_Dist_Zilla: plugins: - + class: Dist::Zilla::Plugin::Git::GatherDir + name: '@RJBS/Git::GatherDir' + version: 1.121010 + - class: Dist::Zilla::Plugin::CheckPrereqsIndexed name: '@RJBS/CheckPrereqsIndexed' version: 0.007 - - class: Dist::Zilla::Plugin::GatherDir - name: '@RJBS/@Basic/GatherDir' - version: 4.300010 + class: Dist::Zilla::Plugin::CheckExtraTests + name: '@RJBS/CheckExtraTests' + version: 0.005 - class: Dist::Zilla::Plugin::PruneCruft - name: '@RJBS/@Basic/PruneCruft' - version: 4.300010 + name: '@RJBS/@Filter/PruneCruft' + version: 4.300015 - class: Dist::Zilla::Plugin::ManifestSkip - name: '@RJBS/@Basic/ManifestSkip' - version: 4.300010 + name: '@RJBS/@Filter/ManifestSkip' + version: 4.300015 - class: Dist::Zilla::Plugin::MetaYAML - name: '@RJBS/@Basic/MetaYAML' - version: 4.300010 + name: '@RJBS/@Filter/MetaYAML' + version: 4.300015 - class: Dist::Zilla::Plugin::License - name: '@RJBS/@Basic/License' - version: 4.300010 + name: '@RJBS/@Filter/License' + version: 4.300015 - class: Dist::Zilla::Plugin::Readme - name: '@RJBS/@Basic/Readme' - version: 4.300010 - - - class: Dist::Zilla::Plugin::ExtraTests - name: '@RJBS/@Basic/ExtraTests' - version: 4.300010 + name: '@RJBS/@Filter/Readme' + version: 4.300015 - class: Dist::Zilla::Plugin::ExecDir - name: '@RJBS/@Basic/ExecDir' - version: 4.300010 + name: '@RJBS/@Filter/ExecDir' + version: 4.300015 - class: Dist::Zilla::Plugin::ShareDir - name: '@RJBS/@Basic/ShareDir' - version: 4.300010 + name: '@RJBS/@Filter/ShareDir' + version: 4.300015 - class: Dist::Zilla::Plugin::MakeMaker - name: '@RJBS/@Basic/MakeMaker' - version: 4.300010 + name: '@RJBS/@Filter/MakeMaker' + version: 4.300015 - class: Dist::Zilla::Plugin::Manifest - name: '@RJBS/@Basic/Manifest' - version: 4.300010 + name: '@RJBS/@Filter/Manifest' + version: 4.300015 - class: Dist::Zilla::Plugin::TestRelease - name: '@RJBS/@Basic/TestRelease' - version: 4.300010 + name: '@RJBS/@Filter/TestRelease' + version: 4.300015 - class: Dist::Zilla::Plugin::ConfirmRelease - name: '@RJBS/@Basic/ConfirmRelease' - version: 4.300010 + name: '@RJBS/@Filter/ConfirmRelease' + version: 4.300015 - class: Dist::Zilla::Plugin::UploadToCPAN - name: '@RJBS/@Basic/UploadToCPAN' - version: 4.300010 + name: '@RJBS/@Filter/UploadToCPAN' + version: 4.300015 - class: Dist::Zilla::Plugin::AutoPrereqs name: '@RJBS/AutoPrereqs' - version: 4.300010 + version: 4.300015 - class: Dist::Zilla::Plugin::Git::NextVersion name: '@RJBS/Git::NextVersion' - version: 1.120370 + version: 1.121010 - class: Dist::Zilla::Plugin::PkgVersion name: '@RJBS/PkgVersion' - version: 4.300010 + version: 4.300015 - class: Dist::Zilla::Plugin::MetaConfig name: '@RJBS/MetaConfig' - version: 4.300010 + version: 4.300015 - class: Dist::Zilla::Plugin::MetaJSON name: '@RJBS/MetaJSON' - version: 4.300010 + version: 4.300015 - class: Dist::Zilla::Plugin::NextRelease name: '@RJBS/NextRelease' - version: 4.300010 + version: 4.300015 - class: Dist::Zilla::Plugin::PodSyntaxTests name: '@RJBS/PodSyntaxTests' - version: 4.300010 - - - class: Dist::Zilla::Plugin::Repository - name: '@RJBS/Repository' - version: 0.18 + version: 4.300015 - class: Dist::Zilla::Plugin::Prereqs config: @@ -141,7 +137,7 @@ phase: test type: requires name: '@RJBS/TestMoreWithSubtests' - version: 4.300010 + version: 4.300015 - class: Dist::Zilla::Plugin::PodWeaver name: '@RJBS/PodWeaver' @@ -153,19 +149,19 @@ - class: Dist::Zilla::Plugin::Git::Check name: '@RJBS/@Git/Check' - version: 1.120370 + version: 1.121010 - class: Dist::Zilla::Plugin::Git::Commit name: '@RJBS/@Git/Commit' - version: 1.120370 + version: 1.121010 - class: Dist::Zilla::Plugin::Git::Tag name: '@RJBS/@Git/Tag' - version: 1.120370 + version: 1.121010 - class: Dist::Zilla::Plugin::Git::Push name: '@RJBS/@Git/Push' - version: 1.120370 + version: 1.121010 - class: Dist::Zilla::Plugin::Prereqs config: @@ -173,33 +169,33 @@ phase: runtime type: requires name: Prereqs - version: 4.300010 + version: 4.300015 - class: Dist::Zilla::Plugin::FinderCode name: ':InstallModules' - version: 4.300010 + version: 4.300015 - class: Dist::Zilla::Plugin::FinderCode name: ':IncModules' - version: 4.300010 + version: 4.300015 - class: Dist::Zilla::Plugin::FinderCode name: ':TestFiles' - version: 4.300010 + version: 4.300015 - class: Dist::Zilla::Plugin::FinderCode name: ':ExecFiles' - version: 4.300010 + version: 4.300015 - class: Dist::Zilla::Plugin::FinderCode name: ':ShareFiles' - version: 4.300010 + version: 4.300015 - class: Dist::Zilla::Plugin::FinderCode name: ':MainModule' - version: 4.300010 + version: 4.300015 zilla: class: Dist::Zilla::Dist::Builder config: is_trial: 0 - version: 4.300010 + version: 4.300015 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/Makefile.PL new/App-Cmd-0.318/Makefile.PL --- old/App-Cmd-0.317/Makefile.PL 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/Makefile.PL 2012-05-05 04:00:43.000000000 +0200 @@ -44,7 +44,7 @@ "strict" => 0, "warnings" => 0 }, - "VERSION" => "0.317", + "VERSION" => "0.318", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/README new/App-Cmd-0.318/README --- old/App-Cmd-0.317/README 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/README 2012-05-05 04:00:43.000000000 +0200 @@ -1,7 +1,7 @@ This archive contains the distribution App-Cmd, -version 0.317: +version 0.318: write command line apps with less suffering diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/lib/App/Cmd/ArgProcessor.pm new/App-Cmd-0.318/lib/App/Cmd/ArgProcessor.pm --- old/App-Cmd-0.317/lib/App/Cmd/ArgProcessor.pm 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/lib/App/Cmd/ArgProcessor.pm 2012-05-05 04:00:43.000000000 +0200 @@ -3,7 +3,7 @@ package App::Cmd::ArgProcessor; { - $App::Cmd::ArgProcessor::VERSION = '0.317'; + $App::Cmd::ArgProcessor::VERSION = '0.318'; } # ABSTRACT: App::Cmd-specific wrapper for Getopt::Long::Descriptive @@ -34,7 +34,7 @@ =head1 VERSION -version 0.317 +version 0.318 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/lib/App/Cmd/Command/commands.pm new/App-Cmd-0.318/lib/App/Cmd/Command/commands.pm --- old/App-Cmd-0.317/lib/App/Cmd/Command/commands.pm 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/lib/App/Cmd/Command/commands.pm 2012-05-05 04:00:43.000000000 +0200 @@ -3,7 +3,7 @@ package App::Cmd::Command::commands; { - $App::Cmd::Command::commands::VERSION = '0.317'; + $App::Cmd::Command::commands::VERSION = '0.318'; } use App::Cmd::Command; BEGIN { our @ISA = 'App::Cmd::Command' }; @@ -66,7 +66,7 @@ =head1 VERSION -version 0.317 +version 0.318 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/lib/App/Cmd/Command/help.pm new/App-Cmd-0.318/lib/App/Cmd/Command/help.pm --- old/App-Cmd-0.317/lib/App/Cmd/Command/help.pm 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/lib/App/Cmd/Command/help.pm 2012-05-05 04:00:43.000000000 +0200 @@ -3,7 +3,7 @@ package App::Cmd::Command::help; { - $App::Cmd::Command::help::VERSION = '0.317'; + $App::Cmd::Command::help::VERSION = '0.318'; } use App::Cmd::Command; BEGIN { our @ISA = 'App::Cmd::Command'; } @@ -52,7 +52,7 @@ $desc, eval { $cmd->usage->option_text }; - print $ut; + print "$ut\n"; } } @@ -67,7 +67,7 @@ =head1 VERSION -version 0.317 +version 0.318 =head1 DESCRIPTION @@ -75,6 +75,73 @@ all of an App::Cmd's commands and their abstracts, or display the usage screen for a subcommand with its description. +=head1 USAGE + +The help text is generated from three sources: + +=over 4 + +=item * + +The C<usage_desc> method + +=item * + +The C<description> method + +=item * + +The C<opt_spec> data structure + +=back + +The C<usage_desc> method provides the opening usage line, following the +specification described in L<Getopt::Long::Descriptive>. In some cases, +the default C<usage_desc> in L<App::Cmd::Command> may be sufficient and +you will only need to override it to provide additional command line +usage information. + +The C<opt_spec> data structure is used with L<Getopt::Long::Descriptive> +to generate the description of the optons. + +Subcommand classes should override the C<discription> method to provide +additional information that is prepended before the option descriptions. + +For example, consider the following subcommand module: + + package YourApp::Command::initialize; + + # This is the default from App::Cmd::Command + sub usage_desc { + my ($self) = @_; + my $desc = $self->SUPER::usage_desc; # "%c COMMAND %o" + return "$desc [DIRECTORY]"; + } + + sub description { + return "The initialize command prepares the application..."; + } + + sub opt_spec { + return ( + [ "skip-refs|R", "skip reference checks during init", ], + [ "values|v=s@", "starting values", { default => [ 0, 1, 3 ] } ], + ); + } + + ... + +That module would generate help output like this: + + $ yourapp help initialize + yourapp initialize [-Rv] [long options...] [DIRECTORY] + + The initialize command prepares the application... + + --help This usage screen + -R --skip-refs skip reference checks during init + -v --values starting values + =head1 AUTHOR Ricardo Signes <[email protected]> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/lib/App/Cmd/Command.pm new/App-Cmd-0.318/lib/App/Cmd/Command.pm --- old/App-Cmd-0.317/lib/App/Cmd/Command.pm 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/lib/App/Cmd/Command.pm 2012-05-05 04:00:43.000000000 +0200 @@ -3,7 +3,7 @@ package App::Cmd::Command; { - $App::Cmd::Command::VERSION = '0.317'; + $App::Cmd::Command::VERSION = '0.318'; } use App::Cmd::ArgProcessor; BEGIN { our @ISA = 'App::Cmd::ArgProcessor' }; @@ -151,7 +151,7 @@ =head1 VERSION -version 0.317 +version 0.318 =head1 METHODS @@ -174,6 +174,15 @@ =head2 execute + $command_plugin->execute(\%opt, \@args); + +This method does whatever it is the command should do! It is passed a hash +reference of the parsed command-line options and an array reference of left +over arguments. + +If no C<execute> method is defined, it will try to call C<run> -- but it will +warn about this behavior during testing, to remind you to fix the method name! + =head2 app This method returns the App::Cmd object into which this command is plugged. @@ -185,12 +194,16 @@ =head2 command_names -This method returns a list of command names handled by this plugin. If this -method is not overridden by a App::Cmd::Command subclass, it will return the -last part of the plugin's package name, converted to lowercase. +This method returns a list of command names handled by this plugin. The +first item returned is the 'canonical' name of the command. +If this method is not overridden by an App::Cmd::Command subclass, it will +return the last part of the plugin's package name, converted to lowercase. For example, YourApp::Cmd::Command::Init will, by default, handle the command -"init" +"init". + +Subclasses should generally get the superclass value of C<command_names> +and then append aliases. =head2 usage_desc @@ -234,21 +247,10 @@ =head2 description This method should be overridden to provide full option description. It -is used by the help command. +is used by the built-in L<App::Cmd::Command::help|help> command. If not overridden, it returns an empty string. -=for Pod::Coverage run - - $command_plugin->execute(\%opt, \@args); - -This method does whatever it is the command should do! It is passed a hash -reference of the parsed command-line options and an array reference of left -over arguments. - -If no C<execute> method is defined, it will try to call C<run> -- but it will -warn about this behavior during testing, to remind you to fix the method name! - =head1 AUTHOR Ricardo Signes <[email protected]> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/lib/App/Cmd/Plugin.pm new/App-Cmd-0.318/lib/App/Cmd/Plugin.pm --- old/App-Cmd-0.317/lib/App/Cmd/Plugin.pm 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/lib/App/Cmd/Plugin.pm 2012-05-05 04:00:43.000000000 +0200 @@ -2,7 +2,7 @@ use warnings; package App::Cmd::Plugin; { - $App::Cmd::Plugin::VERSION = '0.317'; + $App::Cmd::Plugin::VERSION = '0.318'; } # ABSTRACT: a plugin for App::Cmd commands @@ -26,7 +26,7 @@ =head1 VERSION -version 0.317 +version 0.318 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/lib/App/Cmd/Setup.pm new/App-Cmd-0.318/lib/App/Cmd/Setup.pm --- old/App-Cmd-0.317/lib/App/Cmd/Setup.pm 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/lib/App/Cmd/Setup.pm 2012-05-05 04:00:43.000000000 +0200 @@ -2,7 +2,7 @@ use warnings; package App::Cmd::Setup; { - $App::Cmd::Setup::VERSION = '0.317'; + $App::Cmd::Setup::VERSION = '0.318'; } # ABSTRACT: helper for setting up App::Cmd classes @@ -149,7 +149,7 @@ =head1 VERSION -version 0.317 +version 0.318 =head1 OVERVIEW diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/lib/App/Cmd/Simple.pm new/App-Cmd-0.318/lib/App/Cmd/Simple.pm --- old/App-Cmd-0.317/lib/App/Cmd/Simple.pm 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/lib/App/Cmd/Simple.pm 2012-05-05 04:00:43.000000000 +0200 @@ -3,7 +3,7 @@ package App::Cmd::Simple; { - $App::Cmd::Simple::VERSION = '0.317'; + $App::Cmd::Simple::VERSION = '0.318'; } use App::Cmd::Command; BEGIN { our @ISA = 'App::Cmd::Command' } @@ -102,7 +102,7 @@ =head1 VERSION -version 0.317 +version 0.318 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/lib/App/Cmd/Subdispatch/DashedStyle.pm new/App-Cmd-0.318/lib/App/Cmd/Subdispatch/DashedStyle.pm --- old/App-Cmd-0.317/lib/App/Cmd/Subdispatch/DashedStyle.pm 2012-03-26 16:12:02.000000000 +0200 +++ new/App-Cmd-0.318/lib/App/Cmd/Subdispatch/DashedStyle.pm 2012-05-05 04:00:43.000000000 +0200 @@ -3,7 +3,7 @@ package App::Cmd::Subdispatch::DashedStyle; { - $App::Cmd::Subdispatch::DashedStyle::VERSION = '0.317'; + $App::Cmd::Subdispatch::DashedStyle::VERSION = '0.318'; } use App::Cmd::Subdispatch; BEGIN { our @ISA = 'App::Cmd::Subdispatch' }; @@ -64,7 +64,7 @@ =head1 VERSION -version 0.317 +version 0.318 =head1 METHODS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/lib/App/Cmd/Subdispatch.pm new/App-Cmd-0.318/lib/App/Cmd/Subdispatch.pm --- old/App-Cmd-0.317/lib/App/Cmd/Subdispatch.pm 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/lib/App/Cmd/Subdispatch.pm 2012-05-05 04:00:43.000000000 +0200 @@ -3,7 +3,7 @@ package App::Cmd::Subdispatch; { - $App::Cmd::Subdispatch::VERSION = '0.317'; + $App::Cmd::Subdispatch::VERSION = '0.318'; } use App::Cmd; @@ -78,7 +78,7 @@ =head1 VERSION -version 0.317 +version 0.318 =head1 METHODS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/lib/App/Cmd/Tester/CaptureExternal.pm new/App-Cmd-0.318/lib/App/Cmd/Tester/CaptureExternal.pm --- old/App-Cmd-0.317/lib/App/Cmd/Tester/CaptureExternal.pm 2012-03-26 16:12:02.000000000 +0200 +++ new/App-Cmd-0.318/lib/App/Cmd/Tester/CaptureExternal.pm 2012-05-05 04:00:43.000000000 +0200 @@ -2,7 +2,7 @@ use warnings; package App::Cmd::Tester::CaptureExternal; { - $App::Cmd::Tester::CaptureExternal::VERSION = '0.317'; + $App::Cmd::Tester::CaptureExternal::VERSION = '0.318'; } use parent 'App::Cmd::Tester'; @@ -47,7 +47,7 @@ =head1 VERSION -version 0.317 +version 0.318 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/lib/App/Cmd/Tester.pm new/App-Cmd-0.318/lib/App/Cmd/Tester.pm --- old/App-Cmd-0.317/lib/App/Cmd/Tester.pm 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/lib/App/Cmd/Tester.pm 2012-05-05 04:00:43.000000000 +0200 @@ -2,7 +2,7 @@ use warnings; package App::Cmd::Tester; { - $App::Cmd::Tester::VERSION = '0.317'; + $App::Cmd::Tester::VERSION = '0.318'; } # ABSTRACT: for capturing the result of running an app @@ -83,7 +83,7 @@ { package App::Cmd::Tester::Result; { - $App::Cmd::Tester::Result::VERSION = '0.317'; + $App::Cmd::Tester::Result::VERSION = '0.318'; } sub new { @@ -102,10 +102,11 @@ { package App::Cmd::Tester::Exited; { - $App::Cmd::Tester::Exited::VERSION = '0.317'; + $App::Cmd::Tester::Exited::VERSION = '0.318'; } sub throw { my ($class, $code) = @_; + $code = 0 unless defined $code; my $self = (bless \$code => $class); die $self; } @@ -122,7 +123,7 @@ =head1 VERSION -version 0.317 +version 0.318 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/lib/App/Cmd/Tutorial.pod new/App-Cmd-0.318/lib/App/Cmd/Tutorial.pod --- old/App-Cmd-0.317/lib/App/Cmd/Tutorial.pod 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/lib/App/Cmd/Tutorial.pod 2012-05-05 04:00:43.000000000 +0200 @@ -13,7 +13,7 @@ =head1 VERSION -version 0.317 +version 0.318 =head1 DESCRIPTION @@ -140,12 +140,27 @@ sub validate_args { my ( $self, $opt, $args ) = @_; - die $self->_usage_text if $opt->{help}; + if ( $opt->{help} ) { + my ($command) = $self->command_names; + $self->app->execute_command( + $self->app->prepare_command("help", $command) + ); + exit; + } $self->validate( $opt, $args ); } Where C<options> and C<validate> are "inner" methods which your command -subclasses implement. +subclasses implement to provide command-specific options and validation. + +=item * + +Add a C<description> method to your commands for more verbose output +from the built-in C<App::Cmd::Command::help|help> command. + + sub description { + return "The initialize command prepares ..."; + } =item * diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/lib/App/Cmd.pm new/App-Cmd-0.318/lib/App/Cmd.pm --- old/App-Cmd-0.317/lib/App/Cmd.pm 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/lib/App/Cmd.pm 2012-05-05 04:00:43.000000000 +0200 @@ -4,7 +4,7 @@ package App::Cmd; { - $App::Cmd::VERSION = '0.317'; + $App::Cmd::VERSION = '0.318'; } use App::Cmd::ArgProcessor; BEGIN { our @ISA = 'App::Cmd::ArgProcessor' }; @@ -382,7 +382,7 @@ =head1 VERSION -version 0.317 +version 0.318 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/t/release-pod-coverage.t new/App-Cmd-0.318/t/release-pod-coverage.t --- old/App-Cmd-0.317/t/release-pod-coverage.t 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/t/release-pod-coverage.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,15 +0,0 @@ -#!perl -T - -BEGIN { - unless ($ENV{RELEASE_TESTING}) { - require Test::More; - Test::More::plan(skip_all => 'these tests are for release candidate testing'); - } -} - - -use Test::More; -eval "use Test::Pod::Coverage 1.08; use Pod::Coverage::TrustPod; 1" - or plan skip_all => "POD coverage testing requires Test::Pod::Coverage 1.08 and Pod::Coverage::TrustPod"; - -all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' }); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/t/release-pod-syntax.t new/App-Cmd-0.318/t/release-pod-syntax.t --- old/App-Cmd-0.317/t/release-pod-syntax.t 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/t/release-pod-syntax.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,15 +0,0 @@ -#!perl - -BEGIN { - unless ($ENV{RELEASE_TESTING}) { - require Test::More; - Test::More::plan(skip_all => 'these tests are for release candidate testing'); - } -} - -use Test::More; - -eval "use Test::Pod 1.41"; -plan skip_all => "Test::Pod 1.41 required for testing POD" if $@; - -all_pod_files_ok(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/t/release-pod.t new/App-Cmd-0.318/t/release-pod.t --- old/App-Cmd-0.317/t/release-pod.t 2012-03-26 16:12:01.000000000 +0200 +++ new/App-Cmd-0.318/t/release-pod.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,14 +0,0 @@ - -BEGIN { - unless ($ENV{RELEASE_TESTING}) { - require Test::More; - Test::More::plan(skip_all => 'these tests are for release candidate testing'); - } -} - -use Test::More; - -eval "use Test::Pod 1.00"; -plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; - -all_pod_files_ok(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/xt/release/pod-coverage.t new/App-Cmd-0.318/xt/release/pod-coverage.t --- old/App-Cmd-0.317/xt/release/pod-coverage.t 1970-01-01 01:00:00.000000000 +0100 +++ new/App-Cmd-0.318/xt/release/pod-coverage.t 2012-05-05 04:00:43.000000000 +0200 @@ -0,0 +1,7 @@ +#!perl -T + +use Test::More; +eval "use Test::Pod::Coverage 1.08; use Pod::Coverage::TrustPod; 1" + or plan skip_all => "POD coverage testing requires Test::Pod::Coverage 1.08 and Pod::Coverage::TrustPod"; + +all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' }); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/xt/release/pod-syntax.t new/App-Cmd-0.318/xt/release/pod-syntax.t --- old/App-Cmd-0.317/xt/release/pod-syntax.t 1970-01-01 01:00:00.000000000 +0100 +++ new/App-Cmd-0.318/xt/release/pod-syntax.t 2012-05-05 04:00:43.000000000 +0200 @@ -0,0 +1,7 @@ +#!perl +use Test::More; + +eval "use Test::Pod 1.41"; +plan skip_all => "Test::Pod 1.41 required for testing POD" if $@; + +all_pod_files_ok(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-Cmd-0.317/xt/release/pod.t new/App-Cmd-0.318/xt/release/pod.t --- old/App-Cmd-0.317/xt/release/pod.t 1970-01-01 01:00:00.000000000 +0100 +++ new/App-Cmd-0.318/xt/release/pod.t 2012-05-05 04:00:43.000000000 +0200 @@ -0,0 +1,6 @@ +use Test::More; + +eval "use Test::Pod 1.00"; +plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; + +all_pod_files_ok(); -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
