- my $res = $bot->user_timeline(
- {
- screen_name => $screen_name,
- page => $page,
- }
- );
+
+ my $param = ($screen_name)
+ ? { page => $page, screen_name => $screen_name, }
+ : { page => $page, }
+ ;
+
+ my $res;
+ if ($method eq 'user_timeline' || $method eq 'u') {
+ $res = $bot->user_timeline($param);
+ }
+ elsif ($method eq 'retweeted_by_me' || $method eq 'r') {
+ $res = $bot->retweeted_by_me($param);
+ }
+ elsif ($method eq 'mentions' || $method eq 'm') {
+ $res = $bot->mentions($param);
+ }
+ else {
+ warn "$0: unknown method '$method'";
+ &{$help};
+ }