Changeset a5b6bf1 in lab.git for Dev


Ignore:
Timestamp:
Jun 21, 2013 3:38:04 PM (11 years ago)
Author:
Ken-ichi Mito <mitty@…>
Branches:
master
Children:
e960958
Parents:
fd6dbd0
Message:

fix evalrescue fuction

  • dereference Net::Twitter::Lite::Error->twitter_error object correctly
  • use Data::Dumper for unknown structure
Location:
Dev/twitter
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • Dev/twitter/dump_timeline.pl

    rc1b8ad4 ra5b6bf1  
    160160        warn $@->error; 
    161161        if ($@->twitter_error) { 
    162             my %twitter_error = %{$@->twitter_error}; 
    163             map { 
    164                 $twitter_error{"$_ => "} = $twitter_error{$_} . "\n"; 
    165                 delete $twitter_error{$_} 
    166             } keys %twitter_error; 
    167             warn join("", %twitter_error); 
     162            my $twitter_error = $@->twitter_error; 
     163            if (defined $twitter_error->{errors}) { 
     164                foreach my $error (@{$twitter_error->{errors}}) { 
     165                    warn "code => "   , $error->{code}, "\n"; 
     166                    warn "message => ", $error->{message}, "\n"; 
     167                } 
     168            } 
     169            else { 
     170                # unknown HASH structure 
     171                use Data::Dumper; 
     172                warn Dumper $twitter_error; 
     173            } 
    168174        } 
    169175    } 

  • Dev/twitter/show_status.pl

    r43d739e ra5b6bf1  
    5858        warn $@->error; 
    5959        if ($@->twitter_error) { 
    60             my %twitter_error = %{$@->twitter_error}; 
    61             map { 
    62                 $twitter_error{"$_ => "} = $twitter_error{$_} . "\n"; 
    63                 delete $twitter_error{$_} 
    64             } keys %twitter_error; 
    65             warn join("", %twitter_error); 
     60            my $twitter_error = $@->twitter_error; 
     61            if (defined $twitter_error->{errors}) { 
     62                foreach my $error (@{$twitter_error->{errors}}) { 
     63                    warn "code => "   , $error->{code}, "\n"; 
     64                    warn "message => ", $error->{message}, "\n"; 
     65                } 
     66            } 
     67            else { 
     68                # unknown HASH structure 
     69                use Data::Dumper; 
     70                warn Dumper $twitter_error; 
     71            } 
    6672        } 
    6773    } 

  • Dev/twitter/twitterbot.pl

    r43d739e ra5b6bf1  
    302302        warn $@->error; 
    303303        if ($@->twitter_error) { 
    304             my %twitter_error = %{$@->twitter_error}; 
    305             map { 
    306                 $twitter_error{"$_ => "} = $twitter_error{$_} . "\n"; 
    307                 delete $twitter_error{$_} 
    308             } keys %twitter_error; 
    309             warn join("", %twitter_error); 
     304            my $twitter_error = $@->twitter_error; 
     305            if (defined $twitter_error->{errors}) { 
     306                foreach my $error (@{$twitter_error->{errors}}) { 
     307                    warn "code => "   , $error->{code}, "\n"; 
     308                    warn "message => ", $error->{message}, "\n"; 
     309                } 
     310            } 
     311            else { 
     312                # unknown HASH structure 
     313                use Data::Dumper; 
     314                warn Dumper $twitter_error; 
     315            } 
    310316        } 
    311317    } 

  • Dev/twitter/update_timeline.pl

    r43d739e ra5b6bf1  
    112112        warn $@->error; 
    113113        if ($@->twitter_error) { 
    114             my %twitter_error = %{$@->twitter_error}; 
    115             map { 
    116                 $twitter_error{"$_ => "} = $twitter_error{$_} . "\n"; 
    117                 delete $twitter_error{$_} 
    118             } keys %twitter_error; 
    119             warn join("", %twitter_error); 
     114            my $twitter_error = $@->twitter_error; 
     115            if (defined $twitter_error->{errors}) { 
     116                foreach my $error (@{$twitter_error->{errors}}) { 
     117                    warn "code => "   , $error->{code}, "\n"; 
     118                    warn "message => ", $error->{message}, "\n"; 
     119                } 
     120            } 
     121            else { 
     122                # unknown HASH structure 
     123                use Data::Dumper; 
     124                warn Dumper $twitter_error; 
     125            } 
    120126        } 
    121127    } 
Note: See TracChangeset for help on using the changeset viewer.