11 our $VERSION = '0.003';
14 my $idlen = length $_[0]->Id;
16 my $str = sprintf "%${idlen}d %s (by %s) in %s on %s\n", $art->Id, $art->Title, $art->AuthorName, $art->SeriesTitle, $art->DisplayDate;
17 print encode
'UTF-8', $str;
23 printf "%s (by %s) in %s on %s\n\n", $art->Title, $art->AuthorName, $art->SeriesTitle, $art->DisplayDate;
24 say HTML
::FormatText
->format_string($art->Body)
28 for my $series (tdwtf_series
) {
29 $series->{$_} = encode
'UTF-8', ($series->{$_} // '') for keys %$series;
30 say $series->{Slug
}, ' ', $series->{Title
}, "\n", $series->{Description
}, "\n";
35 my ($args, @argv) = @_;
36 return print_series
if $args->{show_series
};
37 return print_list tdwtf_list_recent
@argv if $args->{recent
};
38 return print_list tdwtf_list_series
@argv if $args->{series
};
39 return print_list tdwtf_list_author
@argv if $args->{author
};
40 print_article tdwtf_article
@argv