fix duckpan query <module> command

modules can be specified with PluginType::Plugin, i.e. Goodie::ABC multiple modules can also be specified
duckduckgo · Jan 26, 2013 · 9f39dfc · 9f39dfc
1 parent 82c344a
commit 9f39dfc
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/lib/App/DuckPAN/DDG.pm b/lib/App/DuckPAN/DDG.pm
@@ -16,8 +16,12 @@ sub get_blocks_from_current_dir {
 	my $finder = Module::Pluggable::Object->new(
 		search_path => ['lib/DDG/Spice','lib/DDG/Goodie','lib/DDG/Fathead','lib/DDG/Longtail'],
 	);
-	my @plugins = $finder->plugins;
-	push @args, sort { $a cmp $b } @plugins;
+	if (scalar @args == 0) {
+		my @plugins = $finder->plugins;
+		push @args, sort { $a cmp $b } @plugins;
+	} else {
+		@args = map { $_ = "lib::DDG::$_" unless m,^lib(::|/)DDG,; $_; } @args;
+	}
 	@args = map {
 		$_ =~ s!/!::!g;
 		my @parts = split('::',$_);
@@ -54,4 +58,4 @@ sub get_blocks_from_current_dir {
 	return \@blocks;
 }
 
-1;
+1;