Twirc.pm

sub twitter {
    my ($self, $method, @args) = @_;

    my $r = eval { $self->_twitter->$method(@args) };
    if ( $@ ) {
        if ( blessed $@ && $@->can('code') && $@->code == 502 ) {
            $@ = 'Fail Whale';
        }
        $self->twitter_error("$method -> $@");
    }

    return $r;
}