* remove needless '\n' and "done\n"
git-svn-id: https://lab.mitty.jp/svn/lab/trunk@98
7d2118f6-f56c-43e7-95a2-
4bb3031d96e7
use Data::Dumper;
use Encode;
use Data::Dumper;
use Encode;
-if ($ARGV[0] && ($ARGV[0] eq '--help' || $ARGV[0] eq '-h') ) {
die <<EOM;
usage: $0
[user_timeline(default)|retweeted_by_me|mentions
die <<EOM;
usage: $0
[user_timeline(default)|retweeted_by_me|mentions
+};
+if ($ARGV[0] && ($ARGV[0] eq '--help' || $ARGV[0] eq '-h') ) {
+ &{$help};
my $method = $ARGV[0] || 'user_timeline';
my $screen_name = $ARGV[1] || '';
my $pages = $ARGV[2] || 1;
my $method = $ARGV[0] || 'user_timeline';
my $screen_name = $ARGV[1] || '';
my $pages = $ARGV[2] || 1;
my $conf = loadconf("$Bin/config.yml");
if (! defined $conf) {
my $conf = loadconf("$Bin/config.yml");
if (! defined $conf) {
- die "$0: cannot parse config file.\n";
+ die "$0: cannot parse config file.";
}
my $bot = login($conf);
if (! $bot->authorized) {
}
my $bot = login($conf);
if (! $bot->authorized) {
- die "$0: this client is not yet authorized.\n";
+ die "$0: this client is not yet authorized.";
$res = $bot->mentions($param);
}
else {
$res = $bot->mentions($param);
}
else {
- die "$0: unknown method => $method\n";
+ warn "$0: unknown method '$method'";
+ &{$help};
if ($@) {
evalrescue($@);
}
if ($@) {
evalrescue($@);
}
my $yaml = YAML::Tiny->read($file);
if ($!) {
my $yaml = YAML::Tiny->read($file);
if ($!) {
- warn "$0: '$file' $!\n";