- 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') {
+ $res = $bot->user_timeline($param);
+ }
+ elsif ($method eq 'retweeted_by_me') {
+ $res = $bot->retweeted_by_me($param);
+ }
+ elsif ($method eq 'mentions') {
+ $res = $bot->mentions($param);
+ }
+ else {
+ die "$0: unknown method => $method\n";
+ }