Merge pull request #168 from killerfish/addhelpcmd

Added help command for duckpan
duckduckgo · Nov 11, 2014 · 4ceb4eb · 4ceb4eb
2 parents 0555ce5 + 080dad6
commit 4ceb4eb
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 21 deletions.
diff --git a/lib/App/DuckPAN.pm b/lib/App/DuckPAN.pm
@@ -6,7 +6,6 @@ use Moo;
 use MooX::Cmd;
 use MooX::Options;
 use App::DuckPAN::Config;
-use App::DuckPAN::Help;
 use File::Which;
 use Class::Load ':all';
 use HTTP::Request::Common qw( GET POST );
@@ -204,14 +203,6 @@ sub _build_cfg {
 	);
 }
 
-has help => (
-	is => 'ro',
-	builder => '_build_help',
-	lazy => 1,
-);
-
-sub _build_help { App::DuckPAN::Help->new( ) }
-
 has perl => (
 	is => 'ro',
 	builder => '_build_perl',

diff --git a/lib/App/DuckPAN/Cmd/Help.pm b/lib/App/DuckPAN/Cmd/Help.pm
@@ -0,0 +1,10 @@
+package App::DuckPAN::Cmd::Help;
+# ABSTRACT: Launch help page
+
+use Moo;
+with qw( App::DuckPAN::Cmd );
+use Pod::Usage;
+
+sub run { pod2usage(verbose => 2); }
+
+1;
diff --git a/lib/App/DuckPAN/Help.pm b/lib/App/DuckPAN/Help.pm
diff --git a/t/app_duckpan.t b/t/app_duckpan.t
@@ -27,9 +27,6 @@ is($app->server_hostname, 'duckduckgo.com','Checking for default server duckduck
 isa_ok($app->perl,'App::DuckPAN::Perl');
 is($app->perl->get_local_version('App::DuckPAN'),$version,'Checking get_local_version of perl submodule');
 
-###############################################################
-isa_ok($app->help,'App::DuckPAN::Help');
-
 ###############################################################
 isa_ok($app->cfg,'App::DuckPAN::Config');