X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FApp%2FTDWTF.pm;h=6f8a43ba49b855d681a941b28d3bb749a7fbd488;hb=1e0caaad51845fa693b274b8a2ddff6bf47bd2c5;hp=a8276dd243b758941e6f99f1c1f7a932678809af;hpb=c89ffc8c746bd1c3a34f87e96dca52a40d8b5720;p=webservice-tdwtf.git

diff --git a/lib/App/TDWTF.pm b/lib/App/TDWTF.pm
index a8276dd..6f8a43b 100644
--- a/lib/App/TDWTF.pm
+++ b/lib/App/TDWTF.pm
@@ -8,7 +8,7 @@ use Encode qw/encode/;
 use HTML::FormatText;
 use WebService::TDWTF;
 
-our $VERSION = '0.001';
+our $VERSION = '0.003';
 
 sub print_list {
 	my $idlen = length $_[0]->Id;
@@ -24,10 +24,20 @@ 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};
 	print_article tdwtf_article @argv
 }
+
+1;