- 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);
+ }
+ elsif ($method eq 'search' || $method eq 's') {
+ my $key;
+ foreach my $word (@{ $conf->{hashtag} }) {
+ if ($key) {
+ $key .= " OR $word";
+ }
+ else {
+ $key = $word;
+ }