aboutsummaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/feature-check.pl32
1 files changed, 29 insertions, 3 deletions
diff --git a/bin/feature-check.pl b/bin/feature-check.pl
index 2c36d81..e6f3514 100755
--- a/bin/feature-check.pl
+++ b/bin/feature-check.pl
@@ -65,6 +65,8 @@ my @OPT = ();
feature-check [OPTION...]
+ feature-check --format graphviz | fdp -Tx11
+
=head1 DESCRIPTION
B<feature-check> is a command-line tool
@@ -76,6 +78,25 @@ based on coverage and embedded annotations of its documentation.
=head1 OPTIONS
+=head2 Rendering
+
+=over 16
+
+=item B<--format>
+
+Output format, either of I<table> I<ascii> I<ansi> I<svg> I<graphviz>
+S<(default value: I<ansi>)>
+
+=back
+
+=cut
+
+push @OPT, qw(
+ format=s
+);
+
+$OPT{'format'} = 'ansi';
+
=head2 General
=over 16
@@ -181,9 +202,14 @@ my $table = Term::Table->new(
rows => \@row,
);
-say $_ for $table->render;
-
-print $graph->as_boxart();
+for ( $OPT{format} ) {
+ map { say $_ } $table->render when 'table';
+ print $graph->as_ascii() when 'ascii';
+ print $graph->as_boxart() when 'ansi';
+ print $graph->as_svg() when 'svg';
+ print $graph->as_graphviz() when 'graphviz';
+ default { $log->fatal("unsupported format:$_") && exit 1 }
+}
$log->error($_) for $graph->errors();
$log->warn($_) for $graph->warnings();