consumer_key => $conf->{consumer_key},
consumer_secret => $conf->{consumer_secret},
legacy_lists_api => 0,
+ ssl => 1,
);
$bot->access_token($conf->{access_token});
warn $@->error;
if ($@->twitter_error) {
my $twitter_error = $@->twitter_error;
- if (defined $twitter_error->{errors}) {
+ if (defined $twitter_error->{errors} && ref($twitter_error->{errors})) {
foreach my $error (@{$twitter_error->{errors}}) {
warn "code => " , $error->{code}, "\n";
warn "message => ", $error->{message}, "\n";