Add json output format

Geoffrey Broadwell · Geoffrey Broadwell · commit 03c3480cf352 · 2012-06-10T21:51:09.000-07:00
diff --git a/bench b/bench
@@ -13,6 +13,7 @@ use List::Util      'min', 'max';
 use List::MoreUtils 'uniq';
 use Capture::Tiny   'capture';
 use FindBin;
+use JSON;
 use Cwd;
 
 
@@ -184,6 +185,7 @@ my %TESTS = (
                   ],
             );
 my %FORMATTER = (
+                 json         => \&summarize_results_json,
                  text         => \&summarize_results_text,
                  html         => \&summarize_results_html,
                  html_snippet => \&summarize_results_html_snippet,
@@ -359,6 +361,14 @@ sub compare_times {
     return \%relative;
 }
 
+sub summarize_results_json {
+    my $times = shift;
+
+    my $json = JSON->new->utf8->pretty->encode($times);
+
+    print $json;
+}
+
 sub summarize_results_text {
     my ($times, $style) = @_;
 
@@ -555,7 +565,7 @@ bench -- Benchmark Perl-family compilers against each other
 
 =head1 SYNOPSIS
 
-    bench [--help|-h|-?] [--man] [--format=text|html|html_snippet] [--style=0|1|auto]
+    bench [--help|-h|-?] [--man] [--format=text|json|html|html_snippet] [--style=0|1|auto]
 
 
 =head1 DESCRIPTION
@@ -584,12 +594,13 @@ Get basic help for this program
 
 Display this program's entire manpage
 
-=item --format=text|html|html_snippet
+=item --format=text|json|html|html_snippet
 
 Format the summary output in a particular format.  The default is C<text>,
 which outputs a text-rendered summary table with ANSI coloring.  HTML output
 is also available, either in full document form (C<html>), or just a snippet
-containing the summary table (C<html_snippet>).
+containing the summary table (C<html_snippet>).  To save the results in
+computer-friendly form, use the C<json> format.
 
 =item --style=0|1|auto
 
@@ -600,7 +611,8 @@ highlight entries in the summary table; C<auto> turns on ANSI color whenever
 the output is a TTY.  For HTML output, this determines whether a CSS style
 block is added to the HTML (element C<class> attributes are always output).
 C<auto> defaults to adding CSS to full HTML documents (format C<html>), and
-I<not> adding it to HTML snippets (format C<html_snippet>).
+I<not> adding it to HTML snippets (format C<html_snippet>).  Style settings
+are ignored for JSON output (format <json>).
 
 =back
 
