line |
true |
false |
branch |
131
|
0 |
0 |
unless $$heap{'seen_traffic'}
|
142
|
0 |
0 |
if ($chosen_server =~ s/[\s\:]+(\S+)\s*$//)
|
164
|
0 |
0 |
if $$heap{'server_index'} >= @{$conf{'server'};}
|
180
|
0 |
0 |
if ($msg =~ /^\s*help(?:\s+(\w+))?\s*$/) { }
|
|
0 |
0 |
elsif ($msg =~ /^\s*ignore\s/) { }
|
|
0 |
0 |
elsif ($msg =~ /^\s*ignores\s/) { }
|
|
0 |
0 |
elsif ($msg =~ /^\s*delete\s/) { }
|
|
0 |
0 |
elsif ($msg =~ /^\s*uptime\s*$/) { }
|
182
|
0 |
0 |
if ($helptext{$what})
|
187
|
0 |
0 |
unless ($msg =~ /^\s*ignore\s+(\S+)(?:\s+(\S+))?\s*$/)
|
194
|
0 |
0 |
unless ($mask =~ /^-?\d+(\.(\*|\d+)){3}$/ or $mask eq '-')
|
203
|
0 |
0 |
if ($channels) { }
|
210
|
0 |
0 |
if exists $$heap{'users'}{$_}{$nick}{'mode'}
|
214
|
0 |
0 |
unless @igchans
|
216
|
0 |
0 |
if ($mask eq '-') { }
|
|
0 |
0 |
elsif ($mask =~ /^-(.*)$/) { }
|
244
|
0 |
0 |
unless ($msg =~ /^\s*ignores\s+(\#\S+)\s*$/)
|
250
|
0 |
0 |
unless (@masks)
|
255
|
0 |
0 |
unless length $text < 100
|
259
|
0 |
0 |
unless ($msg =~ /^\s*delete\s+(\d+)\s*$/)
|
266
|
0 |
0 |
if (defined $paste_chan) { }
|
267
|
0 |
0 |
if ($$heap{'users'}{$paste_chan}{$nick}{'mode'} =~ /@/) { }
|
268
|
0 |
0 |
unless delete_paste($conf{'name'}, $paste_chan, $pasteid, $nick)
|
316
|
0 |
0 |
if ($$heap{'nick_index'} >= @{$conf{'nick'};})
|
336
|
0 |
0 |
unless (grep(($_ eq lc $totry), @nicklist))
|
360
|
0 |
0 |
if (defined $conf{'flags'})
|
370
|
0 |
0 |
if (defined $conf{'nickserv_pass'})
|
386
|
0 |
0 |
if (my $data = $irc->nick_info($nick))
|
391
|
0 |
0 |
if ($nick eq 'Someone' or $irc->is_channel_member($channel, $nick))
|
421
|
0 |
0 |
if ($conf{'join_cfg_only'} and 1 > grep(($_ eq $where), @{$conf{'channel'};})) { }
|
433
|
0 |
0 |
if (lc $nick eq lc $$heap{'my_nick'})
|
446
|
0 |
0 |
if (lc $nick eq lc $$heap{'my_nick'})
|
485
|
0 |
0 |
if $_ eq '-' or $_ eq '+'
|
486
|
0 |
0 |
if (/[bklovehI]/)
|
488
|
0 |
0 |
if ($_ eq 'o')
|
489
|
0 |
0 |
if ($set eq '+') { }
|
490
|
0 |
0 |
unless $$heap{'users'}{$location}{$target}{'mode'} =~ /\@/
|
554
|
0 |
0 |
if (my $part = int $secs / 604800)
|
560
|
0 |
0 |
if (my $part = int $secs / 86400)
|
566
|
0 |
0 |
if (my $part = int $secs / 3600)
|
572
|
0 |
0 |
if (my $part = int $secs / 60)
|
578
|
0 |
0 |
if ($secs or not @fields)
|