[libcatmandu-perl] 68/85: Removing all debugging features from the dev branch need further work on this in the 'making_sense_of_errors' branch

Jonas Smedegaard dr at jones.dk
Tue May 20 09:56:20 UTC 2014


This is an automated email from the git hooks/post-receive script.

js pushed a commit to tag 0.91
in repository libcatmandu-perl.

commit 779e503b54e406aeacd5700c270cb8c34dfecfd3
Author: Patrick Hochstenbach <patrick.hochstenbach at ugent.be>
Date:   Sun May 18 15:31:59 2014 +0200

    Removing all debugging features from the dev branch need further work on
    this in the 'making_sense_of_errors' branch
---
 META.json           |  3 ++-
 README.md           |  6 +++++-
 bin/catmandu        | 10 +---------
 cpanfile            |  1 +
 lib/Catmandu/CLI.pm |  9 +--------
 t/Catmandu.t        |  1 -
 6 files changed, 10 insertions(+), 20 deletions(-)

diff --git a/META.json b/META.json
index ffd4af5..d7f9ee2 100644
--- a/META.json
+++ b/META.json
@@ -4,7 +4,7 @@
       "Nicolas Steenlant, C<< <nicolas.steenlant at ugent.be> >>"
    ],
    "dynamic_config" : 0,
-   "generated_by" : "Dist::Milla version v1.0.5, Dist::Zilla version 5.016, CPAN::Meta::Converter version 2.132830",
+   "generated_by" : "Dist::Milla version v1.0.5, Dist::Zilla version 5.016, CPAN::Meta::Converter version 2.141170",
    "license" : [
       "perl_5"
    ],
@@ -79,6 +79,7 @@
       "test" : {
          "requires" : {
             "Log::Any::Adapter" : "0",
+            "Log::Any::Test" : "0.15",
             "Test::Deep" : "0",
             "Test::Exception" : "0",
             "Test::More" : "0"
diff --git a/README.md b/README.md
index 3ed8dec..d5a7315 100644
--- a/README.md
+++ b/README.md
@@ -320,7 +320,9 @@ Nicolas Steenlant, `<nicolas.steenlant at ugent.be>`
 
 # CONTRIBUTORS
 
-Patrick Hochstenbach, `<patrick.hochstenbach at ugent.be>`
+Nicolas Franck, `nicolas.franck at ugent.be`
+
+Patrick Hochstenbach, `patrick.hochstenbach at ugent.be`
 
 Vitali Peil, `vitali.peil at uni-bielefeld.de`
 
@@ -328,6 +330,8 @@ Christian Pietsch, `christian.pietsch at uni-bielefeld.de`
 
 Dave Sherohman, `dave.sherohman at ub.lu.se`
 
+Jakob Voss, `nichtich at cpan.org`
+
 # LICENSE AND COPYRIGHT
 
 This program is free software; you can redistribute it and/or modify it
diff --git a/bin/catmandu b/bin/catmandu
index ad57a1c..4509190 100755
--- a/bin/catmandu
+++ b/bin/catmandu
@@ -13,7 +13,7 @@ catmandu - LibreCat command line tools
 
 =head1 SYNOPSIS
 
- catmandu [-I path] [-L path] [-d] [COMMAND] [-?hqv] [long options...] [ARGS]
+ catmandu [-I path] [-L path] [COMMAND] [-?hqv] [long options...] [ARGS]
 
  catmandu help data
 
@@ -55,14 +55,6 @@ Verbose output.
 
 =item -?
 
-Display the help screen.
-
-=item --debug
-
-=item -d
-
-Display debug messages.
-
 =item --lib-path PATH
 
 =item -I
diff --git a/cpanfile b/cpanfile
index 6a4cbb7..3d5915e 100644
--- a/cpanfile
+++ b/cpanfile
@@ -9,6 +9,7 @@ on 'test', sub {
   requires 'Test::Exception', 0;
   requires 'Test::More', 0;
   requires 'Log::Any::Adapter', 0;
+  requires 'Log::Any::Test','0.15';
 };
 
 requires 'App::Cmd', '0.323';
diff --git a/lib/Catmandu/CLI.pm b/lib/Catmandu/CLI.pm
index 3f0365a..306da98 100644
--- a/lib/Catmandu/CLI.pm
+++ b/lib/Catmandu/CLI.pm
@@ -3,7 +3,6 @@ package Catmandu::CLI;
 use Catmandu::Sane;
 use App::Cmd::Setup -app;
 use Catmandu::Util;
-use Log::Any::Adapter;
 use Catmandu;
 
 sub VERSION {
@@ -15,8 +14,7 @@ sub plugin_search_path { 'Catmandu::Cmd' }
 sub global_opt_spec {
     (
         ['load_path|L=s@', ""],
-        ['lib_path|I=s@', ""],
-        ['debug|d',""],
+        ['lib_path|I=s@', ""]
     );
 }
 
@@ -29,7 +27,6 @@ sub run {
 
     my $load_path = $global_opts->{load_path} || [];
     my $lib_path = $global_opts->{lib_path} || [];
-    my $debug = $global_opts->{debug};
 
     Catmandu->load(@$load_path);
 
@@ -37,10 +34,6 @@ sub run {
         Catmandu::Util::use_lib(@$lib_path);
     }
 
-    if (defined $debug) {
-        Log::Any::Adapter->set('Stderr');
-    }
-
     my $self = ref $class ? $class : $class->new;
     $self->set_global_options($global_opts);
     my ($cmd, $opts, @args) = $self->prepare_command(@$argv);
diff --git a/t/Catmandu.t b/t/Catmandu.t
index a5a065d..5dc43b5 100644
--- a/t/Catmandu.t
+++ b/t/Catmandu.t
@@ -4,7 +4,6 @@ use strict;
 use warnings;
 use Test::More;
 use Test::Exception;
-use Log::Any::Test;
 use Log::Any::Adapter;
 use Data::Dumper;
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-perl.git



More information about the Pkg-perl-cvs-commits mailing list