11 our $VERSION = '0.001';
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 my ($args, @argv) = @_;
29 return print_list tdwtf_list_recent
@argv if $args->{recent
};
30 return print_list tdwtf_list_series
@argv if $args->{series
};
31 return print_list tdwtf_list_author
@argv if $args->{author
};
32 print_article tdwtf_article
@argv