Add a --show-series argument to the tdwtf CLI

[webservice-tdwtf.git] / lib / App / TDWTF.pm

diff --git a/lib/App/TDWTF.pm b/lib/App/TDWTF.pm
index a8276dd243b758941e6f99f1c1f7a932678809af..b31574280ba55edf4ea6001381ab9409461312c4 100644 (file)
--- a/lib/App/TDWTF.pm
+++ b/lib/App/TDWTF.pm
@@ -24,8 +24,16 @@ sub print_article {
        say HTML::FormatText->format_string($art->Body)
 }
 
+sub print_series {
+       for my $series (tdwtf_series) {
+               $series->{$_} = encode 'UTF-8', ($series->{$_} // '') for keys %$series;
+               say $series->{Slug}, ' ', $series->{Title}, "\n", $series->{Description}, "\n";
+       }
+}
+
 sub run {
        my ($args, @argv) = @_;
+       return print_series if $args->{show_series};
        return print_list tdwtf_list_recent @argv if $args->{recent};
        return print_list tdwtf_list_series @argv if $args->{series};
        return print_list tdwtf_list_author @argv if $args->{author};