[yapsi] implemented --version

Idea shamelessly stolen from Rakudo. pmichaud++
masak · Jul 5, 2010 · 513948d · 513948d
1 parent f2020b2
commit 513948d
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/yapsi b/yapsi
@@ -5,6 +5,15 @@ use Yapsi;
 
 my @TARGETS = <run sic>;
 
+if @*ARGS && @*ARGS[0] eq '--version' {
+    my $revision = qx[git describe];
+    say "This is Yapsi, revision $revision";
+    shift @*ARGS;
+    unless @*ARGS {
+        push @*ARGS, '-e', '';
+    }
+}
+
 my $target = 'run';
 if @*ARGS && @*ARGS[0] ~~ /'--target='(\w+)/ {
     die "Recognized targets: {@TARGETS}"