Permalink
Browse files

Use progress.sh -v

  • Loading branch information...
1 parent 8a4dfd2 commit 677f1a7ef570fdb371f70d94c5ecc8b4e1a0a0eb @ambs ambs committed Aug 24, 2011
Showing with 14 additions and 1 deletion.
  1. +13 −0 contrib/progress.pl
  2. +1 −1 progress.sh
View
@@ -1,3 +1,5 @@
+our ($v); # verbose
+
my @expected = qw(
after
any
@@ -71,6 +73,17 @@
my $done = scalar(@done);
use feature 'say';
+
+if ($v) {
+ my @missing;
+ my %cache;
+ @cache{@done} = @done;
+ for my $c (@expected) {
+ push @missing, $c unless exists $cache{$c};
+ }
+ say "Dancer 2.0 DSL is missing: ", join (", ", sort @missing);
+}
+
my $percent = sprintf('%02.2f', ($done / $target * 100));
say "Dancer 2.0 is at $percent% ($done symbols supported on $target)";
View
@@ -1,3 +1,3 @@
#!/bin/bash
-perl -Ilib ./contrib/progress.pl
+perl -s -Ilib ./contrib/progress.pl $@

0 comments on commit 677f1a7

Please sign in to comment.