| line |
true |
false |
branch |
|
460
|
0 |
0 |
if (defined $info and keys %$info)
|
|
465
|
0 |
0 |
unless ($err)
|
|
498
|
0 |
0 |
if defined $pass
|
|
523
|
0 |
0 |
unless defined $cb
|
|
575
|
0 |
0 |
if (defined $chan) { }
|
|
593
|
0 |
0 |
unless my $c = $self->channel_list($channel)
|
|
644
|
0 |
0 |
if ($self->registered) { }
|
|
685
|
0 |
0 |
if ($$self{'channel_list'}{$self->lower_case($chan)}) { }
|
|
751
|
0 |
0 |
if ($id eq '')
|
|
757
|
0 |
0 |
if ($ctcp ne '')
|
|
776
|
0 |
0 |
if ($ctcp ne '')
|
|
809
|
0 |
0 |
if ($$self{'last_pong_recv'} < $$self{'last_ping_sent'}) { }
|
|
811
|
0 |
0 |
if ($cb) { }
|
|
861
|
0 |
0 |
if (defined $key) { }
|
|
892
|
0 |
0 |
if ($prefixed_nick =~ /^([\Q$pchrs\E]+)(.+)$/u) { }
|
|
902
|
0 |
0 |
if (@n > 1 and defined $n[1]) { }
|
|
931
|
0 |
0 |
if $$self{'prefix2mode'}{$_} eq $mode
|
|
1026
|
0 |
0 |
if ($self->is_my_nick($target))
|
|
1031
|
0 |
0 |
if ($dcc_type eq 'send')
|
|
1032
|
0 |
0 |
if ($msg =~ /SEND (.*?) (\d+) (\d+)/u)
|
|
1059
|
0 |
0 |
if ($type eq 'chat') { }
|
|
|
0 |
0 |
elsif ($type eq 'send') { }
|
|
1074
|
0 |
0 |
if ($type eq 'chat')
|
|
1089
|
0 |
0 |
if ($type eq 'chat')
|
|
1141
|
0 |
0 |
if $self
|
|
1146
|
0 |
0 |
unless $dcc and $self
|
|
1165
|
0 |
0 |
unless $dcc and $self
|
|
1167
|
0 |
0 |
unless defined $local_ip
|
|
1194
|
0 |
0 |
if (my $dcc = delete $$self{'dcc'}{$id})
|
|
1213
|
0 |
0 |
unless my $dcc = $$self{'dcc'}{$id}
|
|
1220
|
0 |
0 |
if $self
|
|
1225
|
0 |
0 |
unless $dcc and $self
|
|
1230
|
0 |
0 |
unless ($fh)
|
|
1256
|
0 |
0 |
if (my $dcc = $$self{'dcc'}{$id})
|
|
1265
|
0 |
0 |
if (my $dcc = $$self{'dcc'}{$id})
|
|
1266
|
0 |
0 |
if ($$dcc{'handle'})
|
|
1286
|
0 |
0 |
if ($old ne $ident)
|
|
1300
|
0 |
0 |
if ($self->lower_case($nick) eq $self->lower_case($self->nick)) { }
|
|
1318
|
0 |
0 |
if ($self->is_my_nick($nick))
|
|
1328
|
0 |
0 |
if (defined $mode) { }
|
|
1332
|
0 |
0 |
unless defined $$ch{$nick}
|
|
1341
|
0 |
0 |
unless defined $nickmode
|
|
1343
|
0 |
0 |
$op eq '+' ? :
|
|
1362
|
0 |
0 |
if ($cmd =~ /^\d\d\d$/u and not $cmd >= 400 && $cmd <= 599) { }
|
|
|
0 |
0 |
elsif ($cmd >= 400 and $cmd <= 599 or $cmd eq 'error') { }
|
|
1366
|
0 |
0 |
@{$$msg{'params'};} ? :
|
|
1383
|
0 |
0 |
if ($$msg{'params'}[-1] ne '')
|
|
1385
|
0 |
0 |
if ($self->is_channel_name($targ)) { }
|
|
1397
|
0 |
0 |
if ($$self{'registered'})
|
|
1408
|
0 |
0 |
if $$self{'send_initial_whois'}
|
|
1421
|
0 |
0 |
if (/([A-Z]+)(?:=(.+))?/u)
|
|
1422
|
0 |
0 |
defined $2 ? :
|
|
1426
|
0 |
0 |
if (defined(my $casemap = $$self{'isupport'}{'CASEMAPPING'}))
|
|
1427
|
0 |
0 |
if (defined(my $func = $LOWER_CASEMAP{$casemap})) { }
|
|
1434
|
0 |
0 |
if (defined(my $nick_prefixes = $$self{'isupport'}{'PREFIX'}))
|
|
1435
|
0 |
0 |
if ($nick_prefixes =~ /^\(([^)]+)\)(.+)$/u)
|
|
1446
|
0 |
0 |
if ($$self{'isupport'}{'NAMESX'} and not $$self{'protoctl'}{'NAMESX'})
|
|
1452
|
0 |
0 |
if ($$self{'isupport'}{'UHNAMES'} and not $$self{'protoctl'}{'UHNAMES'})
|
|
1458
|
0 |
0 |
if (defined(my $chan_prefixes = $$self{'isupport'}{'CHANTYPES'}))
|
|
1479
|
0 |
0 |
if ($wasme)
|
|
1485
|
0 |
0 |
if (exists $$chan{$nick})
|
|
1516
|
0 |
0 |
if @new_nicks
|
|
1539
|
0 |
0 |
if @new_nicks
|
|
1542
|
0 |
0 |
if ($self->_was_me($msg) and not $self->isupport('UHNAMES'))
|
|
1575
|
0 |
0 |
if ($$self{'channel_list'}{$_}{$nick})
|
|
1587
|
0 |
0 |
if ($self->is_channel_name($target))
|
|
1588
|
0 |
0 |
if ($mode =~ /^([+-])(\S+)$/u and defined $dest)
|
|
1591
|
0 |
0 |
if (defined $self->map_mode_to_prefix($mode))
|
|
1602
|
0 |
0 |
if ($$msg{'command'} eq '305') { }
|
|
1619
|
0 |
0 |
if ($self->registered) { }
|
|
1625
|
0 |
0 |
if ($self->lower_case($newnick) eq $self->lower_case($$self{'nick'}))
|
|
1666
|
0 |
0 |
if (is_nick_prefix($$msg{'prefix'}))
|
|
1675
|
0 |
0 |
unless defined $oldid
|
|
1685
|
0 |
0 |
if $type ne 'PRIVMSG'
|
|
1687
|
0 |
0 |
unless my $ctcprepl = $$self{'ctcp_auto_replies'}{$tag}
|
|
1690
|
0 |
0 |
if (ref $$ctcprepl[0] eq 'CODE')
|