projects
/
webservice-tdwtf.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
}
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) = @_;
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};
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};
This page took
0.009876 seconds
and
4
git commands to generate.