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};