| line |
true |
false |
branch |
|
343
|
0 |
0 |
if ($r) { }
|
|
345
|
0 |
0 |
if (my $status = delete $$r{'status'})
|
|
380
|
0 |
0 |
ref $_[-1] && reftype($_[-1]) eq 'CODE' ? :
|
|
384
|
0 |
0 |
unless $endpoint_for{$method}
|
|
|
0 |
0 |
unless my($http_method, $endpoint) = @{[] unless $endpoint_for{$method};}
|
|
389
|
0 |
0 |
if ref $$args{$k} eq ref []
|
|
405
|
0 |
0 |
if ($r) { }
|
|
455
|
0 |
0 |
if (my $current_user = $self->get_user_by_id($$user{'id'}))
|
|
456
|
0 |
0 |
if $nick ne $$current_user{'screen_name'}
|
|
463
|
0 |
0 |
unless ($self->nick_exists($nick))
|
|
502
|
0 |
0 |
unless $$s{'entities'}{'urls'}
|
|
511
|
0 |
0 |
if $is_retweet
|
|
536
|
0 |
0 |
unless $self->is_shutting_down
|
|
543
|
0 |
0 |
if ($e =~ /^420:/)
|
|
552
|
0 |
0 |
if (my $delay = $self->reconnect_delay)
|
|
558
|
0 |
0 |
if $next_delay > $self->max_reconnect_delay
|
|
581
|
0 |
0 |
unless $self->has_joined_channel
|
|
583
|
0 |
0 |
if (exists $$msg{'sender'}) { }
|
|
|
0 |
0 |
elsif (exists $$msg{'text'}) { }
|
|
|
0 |
0 |
elsif (exists $$msg{'direct_message'}) { }
|
|
|
0 |
0 |
elsif (exists $$msg{'limit'}) { }
|
|
|
0 |
0 |
elsif (exists $$msg{'scrub_geo'}) { }
|
|
650
|
0 |
0 |
if ($self->log_channel)
|
|
677
|
0 |
0 |
if $event eq 'create'
|
|
689
|
0 |
0 |
if ($self->state_file)
|
|
713
|
0 |
0 |
unless defined $_[12]
|
|
714
|
0 |
0 |
if $self->user_route($nick) eq 'spoofed'
|
|
730
|
0 |
0 |
unless my($nick) = $user =~ /^([^!]+)!/
|
|
731
|
0 |
0 |
if $self->user_route($nick) eq 'spoofed'
|
|
733
|
0 |
0 |
if ($ch eq $self->irc_channel) { }
|
|
|
0 |
0 |
elsif ($self->log_channel and $ch eq $self->log_channel) { }
|
|
752
|
0 |
0 |
unless my($nick) = $user_name =~ /^([^!]+)!/
|
|
753
|
0 |
0 |
if $nick eq $self->irc_botname
|
|
755
|
0 |
0 |
if (my $user = $self->get_user_by_nick($nick))
|
|
759
|
0 |
0 |
if $ch eq $self->irc_channel and $nick eq $self->irc_nickname
|
|
766
|
0 |
0 |
unless my($nick) = $user =~ /^([^!]+)!/
|
|
767
|
0 |
0 |
unless $nick eq $self->irc_nickname
|
|
776
|
0 |
0 |
unless $channel eq $self->irc_channel
|
|
785
|
0 |
0 |
unless $nick eq $self->irc_nickname
|
|
788
|
0 |
0 |
if ($self->has_stash)
|
|
791
|
0 |
0 |
if ($handler) { }
|
|
792
|
0 |
0 |
if $self->call($handler, $channel, $text)
|
|
803
|
0 |
0 |
if $plugin->can('preprocess')
|
|
812
|
0 |
0 |
if ($command =~ /^\w+$/) { }
|
|
820
|
0 |
0 |
if $plugin->can($event)
|
|
823
|
0 |
0 |
if ($self->can($event)) { }
|
|
840
|
0 |
0 |
unless $user =~ /^\Q$me\E!/
|
|
844
|
0 |
0 |
unless ($self->get_user_by_nick($target_nick))
|
|
859
|
0 |
0 |
unless $self->nick_exists($nick)
|
|
863
|
0 |
0 |
if ($self->is_follower_id($$friend{'id'}))
|
|
871
|
0 |
0 |
unless @$ids
|
|
882
|
0 |
0 |
unless $r
|
|
887
|
0 |
0 |
if $self->state_file
|
|
905
|
0 |
0 |
if (my $cursor = $$r{'next_cursor'})
|
|
911
|
0 |
0 |
if (%$followers)
|
|
923
|
0 |
0 |
$self->is_follower_id($$user{'id'}) ? :
|
|
940
|
0 |
0 |
if (not $friend or $self->is_user_stale($friend)) { }
|
|
942
|
0 |
0 |
if (@$buffer == 100)
|
|
965
|
0 |
0 |
if ($nick eq $self->irc_nickname)
|
|
969
|
0 |
0 |
unless ($self->is_channel_member($nick, $self->irc_channel))
|
|
995
|
0 |
0 |
if $self->can($method)
|
|
1004
|
0 |
0 |
if (my $source = $$event{'source'})
|
|
1005
|
0 |
0 |
unless my $target = $$event{'target'}
|
|
1008
|
0 |
0 |
if ($$source{'id'} eq $self->twitter_id) { }
|
|
|
0 |
0 |
elsif ($$target{'id'} eq $self->twitter_id) { }
|
|
1026
|
0 |
0 |
if (my $user = $self->get_user_by_nick($screen_name))
|
|
1041
|
0 |
0 |
$$event{'source'}{'id'} eq $self->twitter_id ? :
|
|
1042
|
0 |
0 |
$$event{'target'}{'id'} eq $self->twitter_id ? :
|
|
1057
|
0 |
0 |
if ($self->get_user_by_id($$target{'id'}))
|
|
1069
|
0 |
0 |
if ($self->get_user_by_id($$target{'id'}))
|
|
1082
|
0 |
0 |
$$event{'source'}{'id'} eq $self->twitter_id ? :
|
|
1083
|
0 |
0 |
$$event{'target'}{'id'} eq $self->twitter_id ? :
|
|
1092
|
0 |
0 |
if ($$msg{'recipient_screen_name'} ne $self->twitter_screen_name)
|
|
1100
|
0 |
0 |
unless ($self->nick_exists($nick))
|
|
1148
|
0 |
0 |
if $self->status_text_too_long($channel, $text)
|
|
1159
|
0 |
0 |
if $r
|
|
1165
|
0 |
0 |
if ((my $n = $self->_calc_text_length($text) - 140) > 0)
|
|
1191
|
0 |
0 |
unless ($id =~ /^\w+$/)
|
|
1210
|
0 |
0 |
unless ($user)
|
|
1227
|
0 |
0 |
unless ($id =~ /^\w+$/)
|
|
1244
|
0 |
0 |
unless ($id =~ /^\w+$/)
|
|
1265
|
0 |
0 |
if (my $user = $self->get_user_by_nick($nick)) { }
|
|
1281
|
0 |
0 |
if ($user) { }
|
|
1285
|
0 |
0 |
defined $_ ? :
|
|
1325
|
0 |
0 |
unless ($onoff and $onoff =~ /^on$|^off$/)
|
|
1330
|
0 |
0 |
$onoff eq 'on' ? :
|
|
1342
|
0 |
0 |
unless my($r) = @{$_[11];}
|
|
1354
|
0 |
0 |
if ($current_value{$command} == $setting)
|
|
1392
|
0 |
0 |
unless my($recent) = @{$_[11];}
|
|
1395
|
0 |
0 |
if (@$recent == 0)
|
|
1422
|
0 |
0 |
if ($index =~ /^\d+$/ and 0 < $index and $index <= @candidates)
|
|
1445
|
0 |
0 |
unless my($r) = @{$_[11];}
|
|
1470
|
0 |
0 |
unless (defined $args)
|
|
1486
|
0 |
0 |
unless my($recent) = @{$_[11];}
|
|
1489
|
0 |
0 |
if (@$recent == 0)
|
|
1522
|
0 |
0 |
if ($index =~ /^\d+$/ and 0 < $index and $index <= @candidates)
|
|
1541
|
0 |
0 |
unless (defined $args)
|
|
1552
|
0 |
0 |
unless (defined $nick and defined $message)
|
|
1558
|
0 |
0 |
if $self->status_text_too_long($channel, $message)
|
|
1569
|
0 |
0 |
unless my($recent) = @{$_[11];}
|
|
1572
|
0 |
0 |
if (@$recent == 0)
|
|
1598
|
0 |
0 |
if ($index =~ /^\d+$/ and 0 < $index and $index <= @candidates)
|
|
1617
|
0 |
0 |
unless ($args)
|
|
1651
|
0 |
0 |
unless (defined $nick)
|