metacpan command that open the module's detail on metacpan.org

aereal · Apr 9, 2013 · 632e5d3 · 632e5d3
1 parent fb90dba
commit 632e5d3
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/bin/metacpan b/bin/metacpan
@@ -0,0 +1,16 @@
+#!/usr/bin/env zsh
+
+open_command=''
+open_args=''
+
+if /usr/bin/which -s open; then
+  open_command='open'
+  open_args=''
+fi
+
+if [[ ! -x =$open_command ]]; then
+  echo "open-able command is not found." > /dev/stderr
+  exit 1
+fi
+
+$open_command $open_args "http://metacpan.org/module/$1"